Pascal ABC

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

Войти

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

Рейтинг 4.55/47:

KiRiLl1452

0 / 0 / 2

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

Сообщений: 68

Найти сумму цифр числа

11.03.2016, 16:16. Показов 9176. Ответов 2

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

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

Цикл с проверкой условий. Задано целое число N. Напишите программу, которая находит сумму цифр заданного числа. Выведите сумму цифр заданного числа.

Примеры

45	9
-123	6
999999	54

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

11.03.2016, 16:16

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

Найти количество и сумму цифр, сумму первой и последней цифр заданного числа z
Дано число z. Найти: количество цыфр в нём, сумму цыфр числа z, первую та последнюю цыфры числа z. Что не так? Var ...

Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа
нужна программа которая проверяет следующий факт: Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа...

Найти сумму цифр числа
Ребята помогите записать программу через процедуру Даны натуральные числа А и В. Вывести на экран все кратные им числа. Найти сумму...

Puporev

Почетный модератор

64315 / 47611 / 32743

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

Сообщений: 115,167

11.03.2016, 16:31

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

Решение

Pascal
1
2
3
4
5
6
7
n:=abs(n);
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;

@Cyborg Drone
	11.03.2016, 23:49
	Не по теме: KiRiLl1452, намёков не понимаете, да? Рекомендую Вам ознакомиться с правилами форума. 0

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

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

11.03.2016, 23:49

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

Найти сумму цифр числа
помогите пожалуйста решить задачу! нужно найти сумму цифр натурального числа заранее спасибо! всем поставлю:

Найти сумму цифр числа
uses Crt; var NUM:integer; Recieve:Char; function SumDigit(N:integer):integer; var Sum:integer; begin Sum:=0; ...

Найти количество цифр числа n, сумму его цифр и его первую цифру
Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру. ...

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Наверх