Question

(Паскаль) Напишите программу, которая для любого двухзначного числа выводит сумму его цифр.

Answer 1

var a, x, s, i: integer;

begin

 writeln('Введите целое число');

 readln( a );

 x:=a;

 s:=0;

 while ( x<>0 ) do  

 begin

   s := s + (x mod 10);

   x := x div 10;

 end;

writeln( 'Сумма цифр числа ',a,' = ', s );

end.

Answer 2

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

pascalCopy code
program SumOfDigits;
var
  number, digit1, digit2, sum: integer;
begin
  // Ввод числа
  write('Введите двухзначное число: ');
  readln(number);

  // Разбиение числа на цифры
  digit1 := number div 10;
  digit2 := number mod 10;

  // Вычисление суммы цифр
  sum := digit1 + digit2;

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

  // Завершение программы
  readln;
end.

Скопируйте этот код в среду разработки Паскаля и запустите программу. Она попросит вас ввести двухзначное число, а затем выдаст сумму его цифр.