Запросить с клавиатуры двузначное число и вывести количество его десятков и единиц!...

Question

Запросить с клавиатуры двузначное число и вывести количество его десятков и единиц! Срочно,зайки выручайте)))!

Answer 1

Var
a : integer;
Begin
Readln(a);
Writeln(a div 10, ' ', a mod 10);
end.

Comments

еще раз спасибо)))