Tính tổng các số chẵn từ 1 đến 100 rồi in kết quả ra màn hình

Câu 38: Tính tổng các số chẵn từ 1 đến 100 rồi in kết quả ra màn hình.

Trả lời

Program TinhTongCacSoChanTu1den100_Cach1;

Var i, tong: integer; 

BEGIN

    writeln('Chuong trinh tinh tong cac so chan trong khoang tu 1 -> 100');

    readln;

    tong: = 0;

    for i:=1 to 100 do

        if i div 2 = 0 then tong:= tong + i;

   writeln('Tong cua cac so chan trong khoang tu 1 -> 100 bang: ',tong:4);

    readln;

END.