viết chương trình tính tổng các số tự nhiên từ 10 đến 30 . thông báo kết quả ra màn hình ?
viết chương trình tính tổng các số tự nhiên từ 10 đến 30 . thông báo kết quả ra màn hình ?
By Mackenzie
By Mackenzie
viết chương trình tính tổng các số tự nhiên từ 10 đến 30 . thông báo kết quả ra màn hình ?
program tong;
uses crt;
var i,T: integer;
Begin
clrscr;
for i:=10 to 30 do T:=T+i;
write(‘T = ‘,T);
readln
End.
uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 30 do s:=s+i;
writeln(‘Tong cac so tu 1 den 30: ‘,s);
readln
end.