Question

Задача: Дано 2-х значное число, определить является ли сумма его цифр 2-х значным числом. Вопрос: Как решить эту задачу в программе Free Pascal???

Answer 1

//Pascal
var N: byte;
begin
  write('Введите 2-значное число: '); readln(N);
  if (N mod 10 + N div 10) >= 10 then
    writeln('Сумма цифр 2-значная = ', N mod 10 + N div 10)
  else
    writeln('Сумма цифр не 2-значная = ', N mod 10 + N div 10);
  readln;
end.


Пример:
Введите 2-значное число: 86
Сумма цифр 2-значная = 14
---------------------------------------------
Введите 2-значное число: 54
Сумма цифр не 2-значная = 9