дано двух значное число . Определить является ли сумма его цифр двузначным число. PascalABC

Чтобы проверить, является ли сумма цифр двузначного числа двузначным числом, необходимо выполнить следующие шаги:

1. Ввести двузначное число.
2. Выделить его десятки и единицы.
3. Посчитать сумму цифр.
4. Проверить, является ли сумма двузначным числом (т.е. находится ли она в диапазоне от 10 до 99).

Вот пример программы на PascalABC:

program CheckSumOfDigits;

var
  number, tens, units, sum: integer;

begin
  // Вводим двухзначное число
  write('Введите двузначное число: ');
  readln(number);
  
  // Проверяем, что число двузначное
  if (number < 10) or (number > 99) then
  begin
    writeln('Ошибка: введено не двузначное число.');
    exit;
  end;

  // Извлекаем десятки и единицы
  tens := number div 10;  // Десятки
  units := number mod 10;  // Единицы
  
  // Считаем сумму
  sum := tens + units;

  // Проверяем, является ли сумма двузначным числом
  if (sum >= 10) and (sum <= 99) then
    writeln('Сумма цифр является двузначным числом.')
  else
    writeln('Сумма цифр не является двузначным числом.')
end.

Объяснение программы:

1. Ввод числа: Мы запрашиваем у пользователя ввод двузначного числа.
2. Проверка: Убедимся, что число действительно двузначное.
3. Извлечение цифр: Используем целочисленное деление и остаток от деления, чтобы получить десятки и единицы.
4. Сумма: Складываем десятки и единицы.
5. Проверка суммы: Проверяем, находится ли сумма в диапазоне от 10 до 99 и выводим соответствующее сообщение.

Запустите этот код в среде PascalABC, и он поможет вам определить, является ли сумма цифр двузначного числа двузначным числом.