câu 1:tính tổng A=1+2+3+..+n (viết bằng lệnh while ..do) câu 2: 1+ $\frac{1}{2}$+ $\frac{1}{3}$+..+ $\frac{1}{20}$ viết bằng lệnh for..do

0 bình luận về “câu 1:tính tổng A=1+2+3+..+n (viết bằng lệnh while ..do) câu 2: 1+ $\frac{1}{2}$+ $\frac{1}{3}$+..+ $\frac{1}{20}$ viết bằng lệnh for..do”

1. câu 1:

   program tong;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   s:=0;  i:=1;

   while s<=n do 

   begin

      s:=s+i;

      i:=i+1;

   end;

   writeln(‘tong la:’,s);

   readln

   end.

   câu 2:

   program ct;

   uses crt;

   var i,n:integer;  s:real;

   begin

   clrscr;

   s:=0;

   for i:=1 to 20 do s:=s+1/i;

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận