Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите программу, которая вводит натуральное число N и выводит на экран все натуральные числа, не превосходящие N и делящиеся на каждую из своих чисел.(PascalABC)

ОТВЕТЫ
var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
317
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам