Ответы
Ответ дал:
0
Var n:integer;BeginWriteln('Введите число N:');ReadLn(n);while n > 0 do Begin Writeln(n mod 10); n:=n div 10 End;End.
Приложения:
Вас заинтересует
2 года назад
3 года назад
3 года назад
9 лет назад