var
n,s:word;
Function koren(n:word):word;
var
s:word;
begin
if n<=0 then
koren:=n
else begin
s:=0;
repeat
s:=s+ n mod 10;
n:=n div 10;
until
n=0;
koren:=koren(s);
end
end;
begin
write('Vvedite n-');
readln(n);
koren(n);
write('vot-',s);
readln;
end.
Что должна делать твоя функция ?
ps у теья s всегда > 0 скорее всего ...
Ну, во первых, если ты находишь пресловутый "корень числа" (сумму его цифр, потом сумму цифр суммы, ... пока эта сумма не будет состоять из одной цифры), то условие должно быть
if n < 10 then koren:=n, а во-вторых, у тебя глобальная S перекрывается локальной...
else ...
write('vot - ', koren(n));
Все разобралсо..спасиба большое.все работает