Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
artem10
0 / 0 / 0
Регистрация: 30.09.2015
Сообщений: 19
#1

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

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

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

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

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

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

Определить кратна ли трем сумма цифр числа - Pascal
Пожалуйста помогите !! Дано четырехзначное число. Определить кратна ли трем сумма его цифр. На FreePascal,используя div и mod.

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

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

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3783 / 2770 / 1895
Регистрация: 05.06.2014
Сообщений: 13,522
30.09.2015, 12:11 #2
Из двух строк, определить в какой сумма цифр больше
0
artem10
0 / 0 / 0
Регистрация: 30.09.2015
Сообщений: 19
30.09.2015, 12:40  [ТС] #3
большое спасибо!
0
APALoff
1637 / 1066 / 470
Регистрация: 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 - Pascal
определить трехзначное число, которое кратно 2,5,7, а сумма цифр равна 12.

определить в какой строке содержится больше слов - Pascal
Даны две строки. Определить в какой строке содержится больше слов. (написать функцию, которая находит кол-во слов в строке)

Определить количество трехзначных натуральных чисел, сумма цифр которых равна n - Pascal
Определить k - количество трехзначных натуральных чисел, сумма цифр которых равна n (1&lt;=n&lt;=27). Операции деления (/, div, и mod) не...

Определить, в каком числе из двух натуральных чисел сумма цифр наибольшая - Pascal
1. Дана строка символов. Удалить из неё знаки препинания. 2.Определить, в каком числе из двух натуральных чисел сумма цифр наибольшая. ...


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

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

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