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.