Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
МарияСтрук
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 55
1

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

10.04.2018, 17:59. Просмотров 787. Ответов 6
Метки нет (Все метки)

2. Дана строка целых чисел. Составить программу, которая найдет число, сумма цифр которого максимальна.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2018, 17:59
Ответы с готовыми решениями:

Составить программу, которая по заданным натуральным числам N и S найдет наименьшее число, большее N, сумма цифр которого равна S
Решите пожалуйста!!!!!! хотя бы одну!!! Задача 1. "Число" (20 баллов) Имя входного файла: a.in...

Составить программу, которая по заданным натуральным числам N и S найдет наименьшее число, большее N, сумма цифр которого равна S
паскаль знаю на уровне школьника, вот такая задача: Составить программу, которая по заданным...

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

Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше, чем введенное число
Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше,...

Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих промежутку [-14;9], и вычисляет произведение нечетных чисел.
Составить программу, которая формирует массив из 7 случайных целых чисел, принадлежащих...

6
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4033 / 2655 / 2130
Регистрация: 22.11.2013
Сообщений: 7,450
10.04.2018, 18:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
  s:=s+' ';
  for i:=1 to Length(s)-1 do
    if s[i] in ['0'..'9'] then begin
      w:=w+s[i]; Inc(n,Ord(s[i])-Ord('0'))
    end else begin
      if mn<n then begin
        mw:=w; mn:=n;
      end;
      w:=''; n:=0;
    end;
  WriteLn(mw);
1
JuriiMW
1992 / 1077 / 1573
Регистрация: 10.12.2014
Сообщений: 4,055
11.04.2018, 06:20 3
Цитата Сообщение от bormant Посмотреть сообщение
-Ord('0')
Лишнее.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4033 / 2655 / 2130
Регистрация: 22.11.2013
Сообщений: 7,450
11.04.2018, 09:07 4
JuriiMW,
здесь — да, но вдруг у кого-то будет аналогичная задача, где сумму цифр тоже будет нужно показать?
Вот для этого и написано именно так.
0
МарияСтрук
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 55
15.04.2018, 12:10  [ТС] 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program suma;
var r,smax:String;
    p,max:integer;
begin
readln(r);
r  :=r+'  ';
s:=0;
s:=s+' ';
 for i:=1 to Length(s)-1 do
   if s[i] in ['0'..'9'] then begin
     w:=w+s[i]; Inc(n,Ord(s[i])-Ord('0'))
   end else begin
     if mn<n then begin
       mw:=w; mn:=n;
     end;
     w:=''; n:=0;
   end;
 WriteLn(mw);
end.


Добавлено через 16 секунд
Чего не работает программа?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4033 / 2655 / 2130
Регистрация: 22.11.2013
Сообщений: 7,450
15.04.2018, 13:57 6
Лучший ответ Сообщение было отмечено МарияСтрук как решение

Решение

Если внимательно посмотреть на код, станет понятно, что в нем использованы строковые переменные s, w, mw и целые i, n, mn. Именно их и нужно объявить.
1
МарияСтрук
0 / 0 / 1
Регистрация: 09.03.2018
Сообщений: 55
15.04.2018, 14:01  [ТС] 7
Спасибо,почему всё так сложно.
0
15.04.2018, 14:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2018, 14:01

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

Напишите программу, которая найдет сумму нечетных чисел, которые меньше 100
Напишите программу, которая найдет сумму нечетных чисел, которые меньше 100.

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru