Найти суммы цифр числа - Pascal ABC

Pascal ABC

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

Войти

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

Рейтинг 5.00/5:

@Drakula12 2 / 2 / 0 Регистрация: 03.02.2012 Сообщений: 58

	Найти суммы цифр числа 15.02.2012, 18:32. Показов 990. Ответов 2 Метки нет (Все метки) Дано число. Найти суммы цифр числа. 0

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

15.02.2012, 18:32

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

Найти двухзначные числа, суммы цифр которых больше заданного числа Х
2. Найти двухзначные числа, суммы цифр которых больше заданного числа Х

Найти квадрат суммы максимальной и минимальной цифр заданного числа
дано натуральное число n найти квадрат суммы максимальной и минимальной цифр, как решить хз

Найти все двузначные числа, квадрат суммы цифр которых делится на 15
Найти все двузначные числа, квадрат суммы цифр которых делится на 15.

Puporev

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

64315 / 47611 / 32743

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

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

15.02.2012, 18:38

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var a,s:integer;
begin
clrscr;
write('a=');
readln(a);
s:=0;
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
write('Сумма цифр=',s);
readln
end.

@Drakula12 2 / 2 / 0 Регистрация: 03.02.2012 Сообщений: 58
	15.02.2012, 18:55 [ТС]
	спасибо 0

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

15.02.2012, 18:55

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

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

Найти те числа заданного отрезка, суммы цифр которого есть число нечетное
1. Дан натуральный отрезок чисел . Найти те числа этого отрезка,суммы цифр которого есть число нечетное. 2.Дан натуральный отрезок чисел...

Ввести с клавиатуры трехзначное число и найти корень квадратный из суммы цифр этого числа
Ввести с клавиатуры трехзначное число и корень квадратный из суммы цифр этого числа

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

Наверх