Вводится 2-х значное число определить сколько дестятков и едениц программа в паскале...

Question

Вводится 2-х значное число определить сколько дестятков и едениц программа в паскале помогите

Comments

Помогите плиз

---

Не видите программу? - обновите страницу.

Answer 1

Var
   A:byte;
Begin
Write('Введите двузначное число: ');ReadLn(A);
WriteLn('Количество десятков в нём: ',A div 10);
WriteLn('Количество единиц в нём: ',A mod 10);
End.