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

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

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

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

@Puporev · 17.12.2015, 12:21

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

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

Pascal

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

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 числа.

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

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

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	17.12.2015, 12:37	4
	Так это же только функция, программу пишите сами. Добавлено через 1 минуту Сообщение от schokker126 В паскале совсем новичок. Так учи чтобы не быть новичком, на халяве далеко не уедешь. 0

Опции темы