PascalABC.NET

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

Войти

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

Рейтинг 4.75/8:

Dimitroff

0 / 0 / 0

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

Сообщений: 17

Подсчитать сумму цифр заданного числа n

16.10.2012, 17:17. Показов 1635. Ответов 1

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Подсчитать сумму цифр заданного числа n.

Комментарий модератора

Dimitroff, один вопрос - одна тема.

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

16.10.2012, 17:17

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

Определить сумму и количество цифр заданного числа
Дано некоторое целое число. Определить сумму и количество цифр этого числа. Напишите вариант решения задачи с использованием оператора...

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

Вывести сумму цифр числа, заданного в виде строки
Задана строчка, которая изображает целое число. Вывести суму цифр этого числа

YaDimkoo

-7 / 0 / 3

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

Сообщений: 29

16.10.2012, 17:21

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var
n,s:integer;
begin
writeln('n?');
readln(n);
s:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln('symma=',s);
end.

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

16.10.2012, 17:21

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

Подсчитать сумму произведений цифр числа, расположенных на симметричных относительно центра позициях
Дано натуральное число не, не превосходящее 2 000 000 000. Подсчитать сумму произведений цифр этого числа, расположенных на симметричных...

Вывести все двухзначные числа, у которых произведение цифр совпадает с суммой цифр заданного числа (либо сообщить, что т
Пользователь вводит двухзначное число N. Вывести все двухзначные числа, у которых произведение цифр совпадает с суммой цифр заданного числа...

Сумма цифр заданного четырёхзначного числа N превосходит произведение цифр этого же числа на 1
Сумма цифр заданного четырёхзначного числа N превосходит произведение цифр этого же числа на 1.

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

Найти количество и сумму цифр числа, и сумму цифр больших, чем 6
С клавиатуры вводится натуральное число Х (n-разрядное, 1<=n<=10). подсчитать количество цифр и найти сумму цифр данного числа. найти сумму...

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

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

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.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. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

Наверх