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)

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)”

  1. 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.

    Bình luận

Viết một bình luận