Функция для нахождения суммы цифр произвольного натурального числа

@schokker126 · Регистрация: 17.12.2015

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

29. Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).

@Puporev · 17.12.2015, 12:21

Сообщение от schokker126

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
function summa(n:integer):byte;
var s:byte;
begin
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
summa:=s;
end;

@schokker126 · 17.12.2015, 12:36 **[ТС]**

Program1.pas(16) : Встречено 'end', а ожидалось begin

Добавлено через 2 минуты
И ещё не пойму в вашем условии, ведь n - это число сумму чисел которого мне необходимо найти. Почему мы его не вводим вначале. Ну и предыдущую ошибку если можно опишите. В паскале совсем новичок.

@Puporev · 17.12.2015, 12:37

Так это же только функция, программу пишите сами.

Добавлено через 1 минуту

Сообщение от schokker126

В паскале совсем новичок.

Так учи чтобы не быть новичком, на халяве далеко не уедешь.

@schokker126 · 17.12.2015, 13:30 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
function Summ(n:longint):byte;
begin
if n<10 then Summ:=n
else Summ:=Summ(n div 10)+n mod 10;
end;
var k:longint;
begin
clrscr;
write('k=');
readln(k);
write(Summ(k));
readln
end.

Добавлено через 49 секунд
Это максимально верный вариант, который необходимо лишь подогнать под 3 числа.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии 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(), которая. . .

@schokker126 0 / 0 / 0 Регистрация: 17.12.2015 Сообщений: 27

	Функция для нахождения суммы цифр произвольного натурального числа 17.12.2015, 12:10. Показов 14060. Ответов 4 Метки нет (Все метки) 29. Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа). 0

@schokker126 0 / 0 / 0 Регистрация: 17.12.2015 Сообщений: 27
	17.12.2015, 12:36 [ТС]
	Program1.pas(16) : Встречено 'end', а ожидалось begin Добавлено через 2 минуты И ещё не пойму в вашем условии, ведь n - это число сумму чисел которого мне необходимо найти. Почему мы его не вводим вначале. Ну и предыдущую ошибку если можно опишите. В паскале совсем новичок. 0