Найти сумму цифр заданного двузначного числа в Pascal.

Для того чтобы найти сумму цифр заданного двузначного числа в языке программирования Pascal, можно использовать следующий алгоритм:

1. Прочитать двузначное число.

2. Разделить число на его десятки и единицы.

3. Сложить эти цифры.

Пример программы на Pascal:

pascal
Копировать код
program SumOfDigits;
var
  num, tens, ones, sum: Integer;
begin
  { Вводим число }
  Write('Введите двузначное число: ');
  ReadLn(num);
  
  { Разделяем число на десятки и единицы }
  tens := num div 10;  { Десятки }
  ones := num mod 10;  { Единицы }
  
  { Находим сумму цифр }
  sum := tens + ones;
  
  { Выводим результат }
  WriteLn('Сумма цифр числа: ', sum);
end.

Объяснение:

1. В переменной num сохраняется введенное число.

2. Операция num div 10 извлекает десятки числа, так как она делит число на 10 и берет целую часть.

3. Операция num mod 10 извлекает единицы числа, так как это остаток от деления на 10.

4. Эти цифры складываются, и результат выводится на экран.

Пример выполнения программы:

Копировать код
Введите двузначное число: 47
Сумма цифр числа: 11