СРОЧНО СРОЧНО СРОЧНО ПОЖАЛУЙСТА ПОМОГИТЕ вводится десятичное число. написать программу,...

Question

СРОЧНО СРОЧНО СРОЧНО
ПОЖАЛУЙСТА ПОМОГИТЕ
вводится десятичное число. написать программу, которая вычесляет количество десятков и единиц в вводимом числе. Программа должна вывести на экран сообщение: "в числе десятков= , в числе единиц= ".

Answer 1

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

Пример:
n = 125
в числе десятков = 2
в числе единиц = 5