viết chương trình tính tổng các số chia hết cho 3 và 5
2 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
