Вводится десятичное число. Написать программу, которая вычесляет количество десятков и...

Question

Вводится десятичное число.
Написать программу, которая вычесляет количество десятков и единиц в вводимом числе. Программа должна вывести на экран сообщение: "в числе десятков= , в числе единиц= ".

Answer 1

Var
  x: integer;

begin
  write('Число: ');
  readln(x);
 
  writeln('В числе десятков=', x div 10, '; единиц=', x mod 10);
end.