Question

Viết chương trình nhập vào số n in ra màn hình các số nhỏ hơn hoặc bằng n chia hết cho 5

Answer 1

program bai1;

var n,i:longint;

begin

write('N= ');readln(n);

for i:=1 to n do

if i mod 5=0 then writeln(i,' ');

readln

end.

Answer 2

program bai1;

var n,i:longint;

begin

write('N= ');readln(n);

for i:=1 to n do

if i mod 5=0 then writeln(i,' ');

readln

end.

Answer 3

program bai1;

var n,i:longint;

begin

write('N= ');readln(n);

for i:=1 to n do

if i mod 5=0 then writeln(i,' ');

readln

end.