Функция: найти сумму цифр трех введенных чисел - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.60/5:

@федор михалыч 0 / 0 / 0 Регистрация: 24.02.2013 Сообщений: 29

	Функция: найти сумму цифр трех введенных чисел 09.11.2013, 12:44. Показов 1022. Ответов 1 Метки нет (Все метки) Вводиться 3 числа, найти сумму цифр всех этих чисел. (ВЫПОЛНИТЬ ЧЕРЕЗ ФУНКЦИЮ!)ЗАРАНЕЕ СПАСИБО!!! 0

Лучшие ответы (1)

Сообщение: #5309288

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

09.11.2013, 12:44

Ответы с готовыми решениями:

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

Вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел, введенных под нечетными номерами
Из n чисел, введенных с клавиатуры, вычислить сумму положительных чисел, введенных под четными...

Определить min из трёх введённых чисел. Если min отр-ное число, то найти кол-во полож-ных, а иначе сумму чисел
Пример для написания программы следующее задание и программа к нему:)"Определить среди 3 введённых...

Jener

228 / 225 / 220

Регистрация: 03.07.2012

Сообщений: 466

09.11.2013, 16:43

Сообщение было отмечено федор михалыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses
  crt;
function SumCif(x : integer) : integer;
var s : integer;
begin
  s := 0;
  while x >= 10 do begin
   s := s + x mod 10;
   x := x div 10;
  end;
  s := s + x;
  SumCif := s;
end;  
var
  x, i : integer;
begin
  clrscr;
  for i := 1 to 3 do begin
    write(i,'-ое число : '); readln(x);
    writeln(SumCif(x));
  end;
  readln;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

09.11.2013, 16:43

Помогаю со студенческими работами здесь

Счастливым называется шестизначное число, у которого сумма его первых трех цифр равна сумме его трех последних цифр
Опледелить является ли заданное шестизначное число счастливым? "Счастливым называется...

Является ли данный билет счастливым? Счастливым считается билет, если сумма трех левых цифр равна сумме трех правых цифр
1. На билете пять цифр - номер билета. Является ли данный билет счастливым? Счастливым считается...

Определить, равна ли сумма первых трех цифр, сумме последних трех цифр
С клавиатуры вводится натуральное шестизначное число.Проверить: а) равна ли сумма первых трех...

Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти значного числа)
Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти...

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх