Question

Даны три целых числа. Определите, у которого из них сумма цифр больше. Подсчет суммы цифр организуйте через процедуру. PascalABC.NET

Answer 1

Программа:

Pascal:

function summ(n: integer): integer;

begin

 n := abs(n);

 while n > 0 do begin

   result := result + n mod 10;

   n := n div 10;

 end;

end;

var

 n1, n2, n3: integer;

begin

 write('n1 = ');  readln(n1);

 write('n2 = ');  readln(n2);

 write('n3 = ');  readln(n3);

 if (summ(n1) > summ(n2)) and (summ(n1) > summ(n3)) then  

   writeln('Первое число')

 else

   if (summ(n2) > summ(n1)) and (summ(n2) > summ(n3)) then  

     write('Второе число')

   else

     write('Третье число');

end.

Answer 2

function digitSum(n: integer): integer;

begin

   while n > 0 do

   begin

        Result := Result + n mod 10;

       n := n div 10;

   end;

end;

var n1, n2, n3: integer;

begin

   n1 := 325;

   n2 := 50011;

   n3 := 29;

   

   write('Сумма цифр больше у ');

   if digitSum(n1) > digitSum(n2) then

       if digitSum(n1) > digitSum(n3) then

           write('1')

       else

           write('3')

    else

       write('2');

    writeln(' числа');

end.

Answer 3

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

Шаги для решения задачи:

1. Создайте процедуру, которая будет принимать на вход целое число и вычислять сумму его цифр. 2. В основной программе, введите три целых числа. 3. Для каждого из трех чисел, вызовите созданную процедуру для подсчета суммы цифр. 4. Сравните полученные суммы и определите, у какого числа сумма цифр больше.

Вот пример кода на PascalABC.NET, который решает данную задачу:

program SumOfDigits;

// Процедура для подсчета суммы цифр числа
procedure CalculateSumOfDigits(number: integer; var sum: integer);
var
  digit: integer;
begin
  sum := 0;
  while number > 0 do
  begin
    digit := number mod 10;
    sum := sum + digit;
    number := number div 10;
  end;
end;

var
  num1, num2, num3: integer;
  sum1, sum2, sum3: integer;

begin
  // Ввод трех целых чисел
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);
  writeln('Введите третье число:');
  readln(num3);

// Вычисление суммы цифр для каждого числа
  CalculateSumOfDigits(num1, sum1);
  CalculateSumOfDigits(num2, sum2);
  CalculateSumOfDigits(num3, sum3);

// Определение числа с наибольшей суммой цифр
  if (sum1 > sum2) and (sum1 > sum3) then
    writeln('Сумма цифр числа ', num1, ' больше.')
  else if (sum2 > sum1) and (sum2 > sum3) then
    writeln('Сумма цифр числа ', num2, ' больше.')
  else if (sum3 > sum1) and (sum3 > sum2) then
    writeln('Сумма цифр числа ', num3, ' больше.')
  else
    writeln('У всех чисел сумма цифр одинаковая.');
end.

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

Например, если ввести числа 123, 456 и 789, программа выведет сообщение: "Сумма цифр числа 789 больше."

Примечание: Данный код предоставлен в качестве примера и может быть изменен или оптимизирован в зависимости от требований и предпочтений программиста.