Информатика, опубликовано 2018-08-22 19:59:16 by Гость
Найти все числа, которые делятся на N среди:а)всех двузначных чисел;б)всех трёхзначных чисел.
Ответ оставил Гость
Var
i,n:longint;
begin
readln(n);
for i:=10 to 99 do
if i mod n=0 then writeln(i);
end.
во втором случае цикл начинаем со 100 и до 999
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.