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)

Question

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)

mocmien · Answer

begin     write('Ket qua: ',(150-2)*150/2:0:0) end.

hoaianh · Answer

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.

0 bình luận về “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)”