Sử dụng while do Viết phương trình tính tổng: A=1+2+3......N B=2+4+6+8....20 C=1/2+1/3+1/4......1/N D=1/1x2+1/2x3+1/3x4.....+1/49x50

Bài 1:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

   write('Nhap N: '); readln(n);

   for i:=1 to n do s:=s+i;

   writeln('A = ',s);

   readln

end.

Bài 2:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

   while i<=20 do begin i:=i+2; s:=s+i; end;

   writeln('B = ',s);

   readln

end.

Bài 3:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

   write('Nhap N: '); readln(n);

   for i:=2 to n do s:=s+1/i;

   writeln('C = ',s);

   readln

end.

Bài 4:

program kaito;

uses crt;

var n, i, s: integer;

begin

   clrscr;

   for i:=1 to 49 do s:=1/(i+1);

   writeln('D = ',s);

   readln

end.

CHÚC BẠN HỌC TỐT!!!