Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Afina
0 / 0 / 0
Регистрация: 12.05.2015
Сообщений: 28
1

Дан текст, в котором имеются цифры. Найти их сумму и максимальную цифру

12.05.2015, 19:02. Просмотров 1402. Ответов 4
Метки нет (Все метки)

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

Дан текст, в котором имеются цифры. Найти их сумму
1)Дан текст,в котором имеются цифры.Найти их сумму.(задача по теме Строки...

Дан текст, в котором имеются цифры, найти их сумму и максимальную цифру
Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру.

Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру
Дан текст, в котором имеются цифры. Найти их сумму. Найти максимальную цифру.

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

Дан текст, в котором имеються цифры.Найти их сумму.
Дан текст, в котором имеються цифры.Найти их сумму. . . Зарание спасибо!=)

4
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4222 / 3067 / 3792
Регистрация: 05.06.2014
Сообщений: 15,420
12.05.2015, 19:59 2
Дан текст, в котором имеются цифры. Найти их сумму
Определить количество цифр в тексте
1
Afina
0 / 0 / 0
Регистрация: 12.05.2015
Сообщений: 28
12.05.2015, 20:16  [ТС] 3
то что вы отправили в первой ссылке я уже пробовала переделать так, чтоб программа находила сумму цифр и максимальную цифру одновременно
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4222 / 3067 / 3792
Регистрация: 05.06.2014
Сообщений: 15,420
12.05.2015, 20:20 4
Afina, не получилось, что ли?
Отправляйте сюда ваши попытки, подправим.
0
SuperKir
434 / 399 / 278
Регистрация: 10.03.2015
Сообщений: 1,698
Завершенные тесты: 1
12.05.2015, 22:47 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s: string;
    i: byte;
    sum,c,k,max: integer;
begin
sum:=0;
max:=-1;
write('s='); readln(s);
for i:=1 to length(s) do
    if s[i] in ['0'..'9'] then
       begin
       val(s[i],c,k);
       if c>max then max:=c;
       sum:=sum+c;
       end;
writeln('Сумма цифр=',sum);
if max <> -1 then writeln('Max цифра: ',max);
readln;
end.
Код чуть дописан из поста http://www.cyberforum.ru/post3114724.html
1
12.05.2015, 22:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2015, 22:47

Дан текст, слова в котором разделены хотя бы одним пробелом. Найти слово, в котором букв “А” больше, чем в других.
1. (строки) Дан текст, слова в котором разделены хотя бы одним пробелом. Найти...

Найти сумму цифр введенного числа, деленную на его максимальную цифру
Пользователь вводит натуральное число.Найти сумму цифр этого числа, деленную на...

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


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

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

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