Viết chương trình nhập vào số nguyên n. In ra màn hình các số chia hết cho 5 trong khoảng từ 1 đến n. Sử dụng For...to...do
2 câu trả lời
var
n,i,kq: integer;
begin
readln (n);
for i:= 1 to n do
if i mod 5 = 0 then writeln (i);
readln;
end.
program oken;
uses crt;
Var n,i;integer;
Begin
Clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
if i mod 5 = 0 then
write(i:2,' ');
readln;
end.