Найти среди данных чисел число, у которого сумма цифр имеет максимальное значение

@NoviiMir · Регистрация: 23.09.2012

Студворк — интернет-сервис помощи студентам

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

@CodeR · 28.10.2012, 12:45

Pascal

Var i,n,m,max,imax:integer;
Function Sum(n:integer):byte;
Var s:byte;
Begin
     s:=0;
     While n>0 do
     Begin
      s:=s+n mod 10;
      n:=n div 10;
     End;
     Sum:=s;
End;
Begin
    write('Введите N: ');readln(n);
    write('1-ое число: ');readln(m);
    max:=Sum(m);imax:=m;
    For i:=2 to n do
    Begin
      write(i,'-ое число: ');readln(m);
      if Sum(m)>max then 
      Begin
        max:=Sum(m);
        imax:=m;
      End;
    End;
    writeln('Число с max суммой цифр = ',imax,' сумма в цифр в этом числе = ',max);
    readln;
End.

@NoviiMir · 28.10.2012, 13:14 **[ТС]**

а если даны числа как положительные, так и отрицательные? и в ответе должно быть исходное число, т.е. с тем же знаком, что и при вводе.

@CodeR · 28.10.2012, 13:22

Сообщение от NoviiMir

а если даны числа как положительные, так и отрицательные? и в ответе должно быть исходное число, т.е. с тем же знаком, что и при вводе.

Pascal

Var i,n,m,max,imax:integer;
Function Sum(n:integer):byte;
Var s:byte;
Begin
     s:=0;n:=abs(n);
     While n>0 do
     Begin
      s:=s+n mod 10;
      n:=n div 10;
     End;
     Sum:=s;
End;
Begin
    write('Введите N: ');readln(n);
    write('1-ое число: ');readln(m);
    max:=Sum(m);imax:=m;
    For i:=2 to n do
    Begin
      write(i,'-ое число: ');readln(m);
      if Sum(m)>max then 
      Begin
        max:=Sum(m);
        imax:=m;
      End;
    End;
    writeln('Число с max суммой цифр = ',imax,' сумма в цифр в этом числе = ',max);
    readln;
End.

@NoviiMir · 28.10.2012, 13:28 **[ТС]**

Спасибо большое! ))

@NoviiMir 9 / 9 / 2 Регистрация: 23.09.2012 Сообщений: 427
		1
	Найти среди данных чисел число, у которого сумма цифр имеет максимальное значение 28.10.2012, 12:19. Показов 7064. Ответов 4 Метки нет (Все метки) Дано натуральное число N и N целых чисел. Найти среди данных чисел число, у которого сумма цифр имеет максимальное значение. Известно, что такое число единственно. Для вычисление суммы цифр использовать функцию. 0

@NoviiMir 9 / 9 / 2 Регистрация: 23.09.2012 Сообщений: 427
	28.10.2012, 13:14 [ТС]	3
	а если даны числа как положительные, так и отрицательные? и в ответе должно быть исходное число, т.е. с тем же знаком, что и при вводе. 0

@NoviiMir 9 / 9 / 2 Регистрация: 23.09.2012 Сообщений: 427
	28.10.2012, 13:28 [ТС]	5
	Спасибо большое! )) 0

Опции темы