Написать в программе Паскаль: Дано целое число. Если оно двузначное, найти сумму его цифр.

Вот простой вариант на Паскале (подойдёт для FreePascal/Turbo Pascal). Учтён случай отрицательных двузначных чисел: проверяем по модулю.

pascal
Копировать код
program SumTwoDigit;
var
  n, a, b, s, m: integer;
begin
  readln(n);
  m := abs(n);            { работаем с модулем числа }
  if (m >= 10) and (m <= 99) then
  begin
    a := m div 10;        { десятки }
    b := m mod 10;        { единицы }
    s := a + b;           { сумма цифр }
    writeln(s);
  end
  else
    writeln('Число не двузначное');
end.

Как это работает:

1. Считываем целое n.

2. Берём m := abs(n), чтобы одинаково обрабатывать, например, -42.

3. Проверяем, что m в диапазоне [10..99] — это и есть двузначные числа.

4. Разбиваем на цифры: десятки m div 10, единицы m mod 10.

5. Складываем и выводим результат; если число не двузначное — печатаем сообщение.

Примеры:

• Ввод: 47 → вывод: 11

• Ввод: -80 → вывод: 8

• Ввод: 7 → вывод: Число не двузначное