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: S←0;  i←1;

B2: S←S+i;

B3: i←i+1; Nếu i<=50 thì quay lại B2

B4. In S và kết thúc.

Chương trình:

program tinhtong;

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 50 do

 s:=s+i;

write('Tong 50 so tu nhien dau tien la: ',s);

readln

end.

b) Input: Số n

    Output: Tổng A

Thuật toán:

B1: A←0;  i←0;

B2: A←A+(2*i+1);

B3: i←i+1; Nếu i<=n thì quay lại B2

B4. In A và kết thúc.

Chương trình:

program tinhtong;

uses crt;

var a,i:integer;

begin

clrscr;

a:=0;

for i:=0 to n do

 s:=s+(2*i+1);

write('Tong A= ',a);

readln

end.

c) Input: Số n

    Output: Tổng B

Thuật toán:

B1: B←0;  i←1;

B2: B←S+2*i;

B3: i←i+1; Nếu i<=n thì quay lại B2

B4. In B và kết thúc.

Chương trình:

program tinhtong;

uses crt;

var B,i:integer;

begin

clrscr;

b:=0;

for i:=1 to n do

 b:=b+2*i;

write('Tong B= ',b);

readln

end.

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.