viết chương trình tính tổng các số chia hết cho 3 và 5

Question

aivilan · Answer

Uses crt;

Var s, i, n: longint;

Begin

Clrscr;

Write(‘Nhap n = ‘); readln(n);

s:=0;

For i:=1 to n do if (i mod 3 = 0) and (i mod 5 = 0) then inc(s,i);

Writeln(‘Tong = ‘,s:4:2);

Readln

End.

tuenhi · Answer

Đ&acirc;y bạn nh&aacute; :))   Nhớ vote 5sao với cảm ơn v&agrave; clthn nh&aacute;

0 bình luận về “viết chương trình tính tổng các số chia hết cho 3 và 5”