Question

Дано двухзначное число. Найдите сумму цифр этого числа. Значение двухзначного числа вводится с клавиатуры с помощью программ PascalABC.Тема Реализация алгоритмов работы с целочисленными данными.

Answer 1

Ответ:

program Integer7;

var   A, Res: Integer;

begin  

Write('Введите двузначное число: ');

Readln(A);  

Res:=(A div 10) + (A mod 10);  

Writeln('Сумма его цифр равна: ',Res);  

Res:=(A div 10) * (A mod 10);  

Writeln('Произведение его цифр равно: ',Res);

end.

Answer 2

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

1. Считать двузначное число с клавиатуры. 2. Разделить это число на десятки и единицы. 3. Сложить полученные значения десятков и единиц. 4. Вывести сумму на экран.

Вот пример программы на PascalABC, реализующей данный алгоритм:

program SumOfDigits;
var
  number, tens, units, sum: integer;
begin
  writeln('Введите двузначное число:');
  readln(number);
  
  // Разделение числа на десятки и единицы
  tens := number div 10;
  units := number mod 10;
  
  // Вычисление суммы цифр
  sum := tens + units;
  
  writeln('Сумма цифр:', sum);
end.

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

Примечание: В данном примере предполагается, что пользователь вводит двузначное число. Если пользователь введет число, не соответствующее этому условию, программа может дать некорректный результат.

Источники: -