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

Написать рекурсивную подпрограмму вычисления суммы цифр входящих в состав числа.HELP!!!!!!!!!!!! ОТПРАВЛЮ 50 РУБ НА КИВИ СРАЗУ

Задать свой вопрос
1 ответ

var n:integer;

function f(x:integer):real;

begin

if x=1 then f:=1 else f:=x+f(x-1);

end;

begin

write('Введите число N ');

readln(n);

write('сумма одинакова ',f(n));

end.

лови бро затупил

7 937 082 20 07 киви  

Лидия Амченко
братан надобно рекурсию
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт