viết chương trình tính tổng của các số nguyên chia hết cho 3 trong phạm vi từ 1 đến 30

viết chương trình tính tổng của các số nguyên chia hết cho 3 trong phạm vi từ 1 đến 30

0 bình luận về “viết chương trình tính tổng của các số nguyên chia hết cho 3 trong phạm vi từ 1 đến 30”

  1. Proram Tinh_Tong;

    Var S,i: Integer;

    Begin

    S :=0;

    For i:=1 to 30 do

    If i mod 3=0 then S:=S+i;

    Write(‘Tong cac so nguyen chia het cho 3 trong pham vi tu 1 den 30 la := ‘,S);

    Readln;

    End.

    Bình luận

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