Напишите программу, которая вводит натуральное число 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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
