Viết chương trình S=1+2+3+-.+N+- Cho đến khi S=10 mũ 9

Question

Viết chương trình S=1+2+3+.....+N+.... Cho đến khi S=10 mũ 9

thienthanh · Answer

uses crt;
var i,s:longint;
BEGIN
clrscr;
i:=1;
while s<1000000000 do
begin
s:=s+i;
inc(i);
end;
write(‘Tong S la:’,s);
readln
END.

annhocbichchau · Answer

program tinhtong;

uses crt;

var S:int64;

n:longint;

begin

clrscr;

s:=0; n:=0;

while s<1000000000 do

begin

n:=n+1;

s:=s+n;

end;

write(‘N nho nhat la: ‘,n);

readln

end.

0 bình luận về “Viết chương trình S=1+2+3+-.+N+- Cho đến khi S=10 mũ 9”