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 18/07/2021 Bởi Hailey 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
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
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.
Dưới ảnh nhá