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 :((((
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 :((((
By Hadley
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.
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.