Найти сумму цифр числа, заданного случайным образом - PascalABC.NET

PascalABC.NET

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

Войти

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

Рейтинг 4.64/11:

@Карина Румянце 0 / 0 / 0 Регистрация: 26.09.2012 Сообщений: 39

	Найти сумму цифр числа, заданного случайным образом 04.10.2012, 18:21. Показов 2106. Ответов 2 Метки нет (Все метки) Составить программу для нахождения суммы цифр числа, заданного случайным образом. 0

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

04.10.2012, 18:21

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

найти сумму цифр заданного четырехзначного числа
еще три задачки 1) Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он...

Рекурсия. Найти сумму цифр заданного натурального числа.
Найти сумму цифр заданного натурального числа

Подсчитать количество цифр в заданном натуральном числе и найдите сумму цифр заданного натурального числа
Подсчитать количество цифр в заданном натуральном числе и найдите сумму цифр заданного натурального числа.

Puporev

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

64314 / 47610 / 32743

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

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

04.10.2012, 18:34

Сообщение было отмечено Карина Румянце как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a,s:integer;
begin
write('a=',-100000+random(200001);
a:=abs(a);
s:=0;
while a>0 do 
 begin
  s:=s+a mod 10;
  a:=a div 10;
 end;
write('s=',s);
end.

@Карина Румянце 0 / 0 / 0 Регистрация: 26.09.2012 Сообщений: 39
	04.10.2012, 19:25 [ТС]
	Спасибо за ответ! 0

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

04.10.2012, 19:25

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

Подпрограммы: Из заданного числа отняли сумму его цифр. Из результата опять отняли сумму его цифр и т.д. Через сколько таких действий получится ноль?
Составить программу решения задачи с использованием подпрограмм. Из заданного числа отняли сумму его цифр. Из результата опять отняли...

Подсчитать сумму цифр заданного числа n
Подсчитать сумму цифр заданного числа n. Dimitroff, один вопрос - одна тема.

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

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

Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти.
Помогите пожалуйста написать прогу в паскале: задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих...

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

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

Новые блоги и статьи Все статьи Все блоги /
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .

Наверх