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

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.

Câu hỏi trong lớp Xem thêm