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)
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)
By Faith
By Faith
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)
begin
write(‘Ket qua: ‘,(150-2)*150/2:0:0)
end.
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.