Viết chương trình Pascal: tính tổng các số chẳn từ 1 đến 150 ( Tính tổng S=2+4+6+...+150)
2 câu trả lời
program phuongt;
uses crt;
var s, i: integer;
begin
clrscr;
s:=0;
for i:=1 to 150 do if i mod 2 = 0 then s:=s+i;
write('Tong = ', s);
readln
end.