Question

дано число n. В интервале от 1 до n вывести на экран все числа которые делятся на 10 без остатка

Answer 1

6

readln(n);

for i:=1 to n do

begin

write(i:3);

end;

writeln;

for i:=1 to n do

if i mod 3=0 then

begin

write(i:3);

end;