Консольное приложение: var n,k,i:integer; m,f:string; begin write(n = ); readln(n); k:=n; f:=; i:=1; while k>0 do begin i:=i+1; str(k mod i,m); f:=m+f; k:= k div i; end; writeln(f = ,f); end.
Пример: n = 100 f = 4020
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
