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

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 432 24/07/2023


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

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

Lời giả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.

1 432 24/07/2023


Xem thêm các chương trình khác: