Ôn tập cuối năm

KP

Hãy nhập vào 2 số nguyên m và n đưa ra màn hình những số chia hết cho 3 vào 5 trong phạm vi từ m đến n

H9
23 tháng 2 2023 lúc 11:19

Uses crt;

Var m,n,i,s: longint;

Begin clrscr;

Write ('nhap m:'); readln (m);

Write ('nhap n:'); readln (n);

While n <m do

Begin

Write ('nhap lai n:');

Readln (n);

End;

S:=0;

For i:=m to n do

If (i mod 3=0) or (i mod 5=0) then s:=s+i;

Write(s);

Readln;

end.

Bình luận (1)

Các câu hỏi tương tự
TP
Xem chi tiết
NL
Xem chi tiết
MA
Xem chi tiết
NM
Xem chi tiết
NM
Xem chi tiết
NM
Xem chi tiết
HT
Xem chi tiết
HT
Xem chi tiết
BL
Xem chi tiết