Question

Составить программа.Вывода суммы разрядов двухзначных чисел(Pacsal abc) Пример: 12 т.е 1+2=3 16 т.е. 1+6=7

Answer 1

Program xxx;
var
i : integer;
begin
writeln('Введите двухзначное число...');
readln(i);
writeln('Ответ:', (i div 10)+(i mod 10));
end.

Answer 2

Конечно, я могу помочь вам написать программу на Pascal, которая будет выводить сумму разрядов двузначных чисел. Вот пример:

program SumOfDigits;

var
  number, digit1, digit2, sum: integer;

begin
  // Вводим двузначное число
  write('Введите двузначное число: ');
  readln(number);

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

// Разбиваем число на разряды
  digit1 := number div 10;
  digit2 := number mod 10;

// Считаем сумму разрядов
  sum := digit1 + digit2;

// Выводим результат
  writeln('Сумма разрядов числа ', number, ' равна ', sum);

end.

Эта программа сначала запрашивает у пользователя ввод двузначного числа. Затем она проверяет, что введенное число действительно двузначное. Если нет, программа выводит сообщение об ошибке и завершается. Если введено двузначное число, программа разбивает его на разряды (десятки и единицы) и вычисляет их сумму. Результат выводится на экран.

Пример использования программы: ``` Введите двузначное число: 57 Сумма разрядов числа 57 равна 12 ```