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) 20/07/2021 Bởi 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)
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); readlnend. Bình luận
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.