Question

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

Answer 1

Var a,i,s,max,amax:integer;
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do
 begin
 s:=s+n mod 10;
 n:=n div 10;
 end;
sum:=s;
end;
begin
max:=0;
for i:=1 to 8 do
 begin
 write('a = ');
 readln(a);
 s:=sum(a);
 if s>max then begin max:=s; amax:=a; end;
 end;
writeln('В числе ',amax,'  максимальная сумма цифр = ',max);
end.

Пример:
a = 405a = 120
a = 309
a = 671
a = 456
a = 215
a = 751
a =321
В числе 456 максимальная сумма цифр = 15

Answer 2

Конечно! Вот пример программы на Pascal, которая находит число с наибольшей суммой цифр среди 8 положительных чисел:

pascalCopy code
program MaxDigitSum;

function SumOfDigits(num: Integer): Integer;
var
  digit: Integer;
begin
  Result := 0;
  while num > 0 do
  begin
    digit := num mod 10;
    Result := Result + digit;
    num := num div 10;
  end;
end;

var
  numbers: array[1..8] of Integer;
  i, maxSum, maxNum: Integer;

begin
  writeln('Введите 8 положительных чисел:');
  for i := 1 to 8 do
    readln(numbers[i]);

  maxSum := 0;
  maxNum := 0;

  for i := 1 to 8 do
  begin
    if SumOfDigits(numbers[i]) > maxSum then
    begin
      maxSum := SumOfDigits(numbers[i]);
      maxNum := numbers[i];
    end;
  end;

  writeln('Число с наибольшей суммой цифр: ', maxNum);
  writeln('Сумма цифр: ', maxSum);

  readln;
end.

Программа начинает с определения функции SumOfDigits, которая принимает число и возвращает сумму его цифр. Затем определены массив numbers для хранения 8 чисел и переменные maxSum и maxNum для отслеживания числа с наибольшей суммой и самой большой суммы соответственно.

Затем программа запрашивает у пользователя ввести 8 положительных чисел и сохраняет их в массиве numbers. Далее происходит итерация по массиву и вычисление суммы цифр каждого числа с помощью функции SumOfDigits. Если сумма цифр текущего числа больше, чем текущая максимальная сумма maxSum, то значения maxSum и maxNum обновляются.

В конце программы выводится число с наибольшей суммой цифр (maxNum) и сама сумма цифр (maxSum).

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