Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
schokker126
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 15
#1

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

17.12.2015, 12:10. Просмотров 1729. Ответов 4
Метки нет (Все метки)

29. Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения суммы цифр произвольного натурального числа).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2015, 12:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функция для нахождения суммы цифр произвольного натурального числа (Pascal):

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

Рекурсивная функция нахождения суммы цифр числа
Привет всем.с рекурсией у меня туго.помогите пожалуйста решить вот эти две...

Сумма цифр в записи произвольного натурального числа
Написать программу, находящую сумму цифр в записи произвольного натурального...

Определение количества цифр в записи произвольного натурального числа
Попросили создать. Нужно решение следующих заданий 1) Составьте программу для...

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

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n
Составить функцию для нахождения наименьшего нечетного натурального делителя k...

4
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
17.12.2015, 12:21 #2
Цитата Сообщение от 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;
0
schokker126
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 15
17.12.2015, 12:36  [ТС] #3
Program1.pas(16) : Встречено 'end', а ожидалось begin

Добавлено через 2 минуты
И ещё не пойму в вашем условии, ведь n - это число сумму чисел которого мне необходимо найти. Почему мы его не вводим вначале. Ну и предыдущую ошибку если можно опишите. В паскале совсем новичок.
0
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
17.12.2015, 12:37 #4
Так это же только функция, программу пишите сами.

Добавлено через 1 минуту
Цитата Сообщение от schokker126 Посмотреть сообщение
В паскале совсем новичок.
Так учи чтобы не быть новичком, на халяве далеко не уедешь.
0
schokker126
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 15
17.12.2015, 13:30  [ТС] #5
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 числа.
0
17.12.2015, 13:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 13:30
Привет! Вот еще темы с решениями:

Вычисление суммы квадратов цифр натурального числа
Дано натуральное число N. Найти сумму квадратов цифр этого числа.

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

Функция вычисления произведения цифр натурального числа
Написать функцию вычисления произведения цифр натурального числа и организовать...

Написать программу, производящуютакое разложение для произвольного натурального числа
помогите с программой. Любое натуральное число можно единственным образом...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru