ПОМОГИТЕ РЕШИТЬ В ПАСКАЛЕ.С ПОЛНЫМ РЕШЕНИЕМ! Дано двузначное число. Найти: а) число...

Question

ПОМОГИТЕ РЕШИТЬ В ПАСКАЛЕ.С ПОЛНЫМ РЕШЕНИЕМ!
Дано двузначное число. Найти:
а) число десятков в нем;
б) число единиц в нем;
в) сумму его цифр;
г) произведение его цифр.

Answer 1

Var
  n:integer;
begin
  Write('n='); Read(n);
  Writeln('Десятков- ',n div 10);
  Writeln('Единиц- ', n mod 10);
  Writeln('Сумма цифр- ', n div 10+n mod 10);
  Writeln('Произведение цифр- ', (n div 10)*(n mod 10))
end.

Тестовое решение
n=49
Десятков- 4
Единиц- 9
Сумма цифр- 13
Произведение цифр- 36