Написать функцию,которая находит цифровой корень целого числа
var n:longint;
function num(i:longint):integer;
var s: integer;
begin
s:=0;
repeat
s:=s+n mod 10;
n:= n div 10;
until n=0;
num:=s;
end;
function root(l:longint):integer;
begin
if n<10 then root:=n
else
begin
n:=num(n);
root:=root(n);
end;
end;

begin
write('Введите целое число n=');
readln(n);
writeln('Его цифровой корень равен : ', root(n));
end.
помогите перевести с паскаля на С

А в чем вопрос?

вопрос в том что на С надо перевести

Зачем вы объявляете переменные в функции, а потом нигде их не используете? Я имею в виду строчки и , в этих функциях ни i, ни l соответственно нигде не встречаются. Lucky you, что это паскаль, где переменные объявляются зарание. С Вам такого финта ушами не простит.
Что не получается с переводом на С?

на С никогда не работала

Значит, берёте книжку Кернигана и Ритчи, и вперёд.

спасибо