1 , Viết chương trình tính tổng các số chẵn liên tiếp đầu tiên cho đến khi được tổng lớn hơn 1000 . Đưa kết quả ra màn hình .
1 , Viết chương trình tính tổng các số chẵn liên tiếp đầu tiên cho đến khi được tổng lớn hơn 1000 . Đưa kết quả ra màn hình .
program tinhtong;
uses crt;
var i: word;
S: longint;
begin
crlccr;
S:=0;
for i:=1 to 1000 do S:=S+i;
write(‘Tong S=’, S);
end.
Program Tinh_Tong;
Var i:Word;
S:Longint;
Begin
S:=0;
For i:=1 to 1000 do S:=S+i;
Write(‘Tong S=’,S);