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

Определить, в какой строке сумма цифр большая

30.09.2015, 11:33. Просмотров 921. Ответов 3
Метки нет (Все метки)

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

В какой строке массива сумма элементов больше
Дан двухмерный массив. Определить: а) в, какой строке массива сумма элементов...

определить на какой строке находится минимальный элемент из максимальных на каждой строке
дан массив М(n,k). определить на какой строке находится минимальный элемент из...

Определить кратна ли трем сумма цифр числа
Пожалуйста помогите !! Дано четырехзначное число. Определить кратна ли трем...

Определить у какого из чисел больше сумма цифр
Вводится два целых 2-ух значных числа А, В.Определить у какого из них больше...

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

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3881 / 2863 / 3639
Регистрация: 05.06.2014
Сообщений: 14,067
30.09.2015, 12:11 2
Из двух строк, определить в какой сумма цифр больше
0
artem10
0 / 0 / 0
Регистрация: 30.09.2015
Сообщений: 19
30.09.2015, 12:40  [ТС] 3
большое спасибо!
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
30.09.2015, 12:55 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var S1,S2 : String;
 
Function SumCifr(A : String) : Integer;
Begin
  If A<>'' then SumCifr:=Ord(A[1])-Ord('0')+SumCifr(Copy(A,2,Length(A)-1)) else SumCifr:=0;
End;
 
Begin
  S1:='123456';
  S2:='123455';
  If SumCifr(S1)>SumCifr(S2) then Writeln('S1, сумма цифр: ',SumCifr(S1))
  else
    If SumCifr(S1)<SumCifr(S2) then Writeln('S2, сумма цифр: ',SumCifr(S2))
    else Writeln('Сумма цифр одинакова: ',SumCifr(S1))
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2015, 12:55

Определить элементы, сумма цифр в записи которых максимальна и минимальна
Здравствуйте! Помогите пожалуйста написать программу на Паскале. В...

Определить трехзначное число, которое кратно 2, 5, 7, а сумма цифр равна 12
определить трехзначное число, которое кратно 2,5,7, а сумма цифр равна 12.

определить в какой строке содержится больше слов
Даны две строки. Определить в какой строке содержится больше слов. (написать...


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

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

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