Форум » Рекурсивные процедуры и функции » 95 из задания 16 » Ответить
95 из задания 16
Vin: Подскажите, что не так? В ответах 9, у меня 7 function F(n:integer):integer;forward; function G(n:integer):integer;forward; function F(n:integer):integer; begin if n<10 then F:=n else if n>=10 then F:=F(G(n)); end; function G(n:integer):integer; begin if n<10 then G:=n else if n>=10 then G:= (n mod 10) + G(n div 10); end; begin writeln(F(12345678987654321)); end.
Ответов - 2
AnnaPershina: Vin пишет: То же самое. Получилось 7
Поляков: Попробуйте заменить везде integer на Biginteger.
полная версия страницы