Viết chương trình tính tổng các số chia hết cho 5 hoặc 3 trong phạm vi từ M đến N
2 câu trả lời
var s: longint;
M, n, i: word;
Begin
Write('nhap m va n: '); readln(m, n);
S:=0;
For i:=m to n do
If (i mod 5=0) or (i mod 3=0)
Then s:=s+i;
Write(s);
Readln
End.
uses crt;
var m,n,i,t:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
until m<=n;
t:=0;
for i:=m to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
writeln(t);
readln;
end.
@ xin hay nhất ạ 😆
