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/1×2+1/2×3+1/3×4-.+1/49×50

0 bình luận về “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/1×2+1/2×3+1/3×4-.+1/49×50”

1. 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!!!

   Bình luận