Найти все числа, которые делятся на N среди:

а) всех двузначных чисел;

б) всех трёхзначных чисел.

Question

Зина

15 января, 01:34

+1

Ответы (1)

Знаете ответ на вопрос?

Мстислава · Answer 1

Var

i, n:longint;

begin

readln (n) ;

for i:=10 to 99 do

if i mod n=0 then writeln (i) ;

end.

во втором случае цикл начинаем со 100 и до 999

Найти все числа, которые делятся на N среди:а) всех двузначных чисел;б) всех трёхзначных чисел.