Ответы и объяснения

Лучший Ответ!
  • Kitsu
  • почетный грамотей
2012-11-30T20:40:14+04:00

var a:integer;

begin

readln(a);

writeln(a mod 10,' - edinici');

a:=a div 10;

writeln(a mod 10,' - desyatki');

a:=a div 10;

writeln(a,' - sotni');

end.