viết chương trình tổng các số chia hết cho 3 và 5 từ 1 đến N
2 câu trả lời
Program baitap;
Uses crt;
Var i,N:integer;
S: longint;
Begin
Clrscr;
Write('N=');
Readln(N);
S:=0;
For i:=1 to N do
If (i mod 3=0) and (i mod 5=0) then S:=S+i;
Writeln('Tong cac so chia het cho 3 va 5:',S);
Readln
End.
uses crt;
var n,ans,i:longint;
begin
clrscr;
readln(n);
i:=15;
while i <= n do
begin
inc(ans,i);
inc(i,15);
end;
writeln(ans);
readln;
end.
Câu hỏi trong lớp
Xem thêm
