a)
Input: 50 số tự nhiên đầu tiên.
Output: tổng 50 số tự nhiên đầu tiên.
Thuật toán:
B1. i←0; s←0;
B2. i←i+1; s←s+i;
B3. Nếu i=50 thì xuất s rồi kết thúc.
B4. Quay lại B2.
B5. Kết thúc
Chương trình:
uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 50 do s:=s+i;
writeln('Tong 50 so hang dasu tien la: ',s);
readln
end.
b)
Input: n.
Output: A.
Thuật toán:
B1. i←-1; A←0;
B2. i←i+2; A←A+i;
B3. Nếu i=2*n+1 thì xuất A rồi kết thúc.
B4. Quay lại B2.
B5. Kết thúc
Chương trình:
uses crt;
var a,i,n:longint;
begin
clrscr;
write('n=');readln(n);
i:=-1;
while i<2*n+1 do begin inc(i,2); a:=a+i; end;
writeln('A= ',a);
readln
end.
c)
Input: n.
Output: B.
Thuật toán:
B1. i←0; B←0;
B2. i←i+2; B←B+i;
B3. Nếu i=2*n thì xuất B rồi kết thúc.
B4. Quay lại B2.
B5. Kết thúc
Chương trình:
uses crt;
var b,i,n:longint;
begin
clrscr;
write('n=');readln(n);
i:=0;
while i<n*2 do begin inc(i,2); b:=b+i; end;
writeln('B= ',b);
readln
end.
