Viết CT pascal tính tổng n số tự nhiên cho đến khi số đó bé hơn hoặc bằng 2000, nếu không thì yêu cầu tính lại giúp em đi hmuhmu :((((

0 bình luận về “Viết CT pascal tính tổng n số tự nhiên cho đến khi số đó bé hơn hoặc bằng 2000, nếu không thì yêu cầu tính lại giúp em đi hmuhmu :((((”

1. programtinh_tong;

   uses crt;

   var a,i,s: longint;

   begin

   clrscr;

   s:= 0;

   while s<=2000 do begin writeln(‘nhap so n: ‘);

   readln(n);

   s:= s+n;

   writeln(‘tong la: ‘,s);

   end;

   readln

   end.

   Bình luận

2. uses crt;
   var n,i,s:integer;
   begin
       clrscr;
       s:=0;
       repeat
           write(‘Nhap so: ‘); readln(n);
           if n>2000 then writeln(‘Loi!NHAP LAI!’);
       until n<=2000;
       for i:=1 to n do s:=s+i;
       write(‘Tong: ‘,s);
       readln;
   end.

   Bình luận