Рекурсия

[DrDre9991]

1. Дано действительное число а, натуральное число k. Не пользуясь стандартной операцией возведения в степень, найти аk.


2. Дано натуральное число n. Определить количество цифр в этом числе

[Don Karleone]

2.
s:=0; {количество цифр в числе n}
repeat
n:=n div 10;
Inc(s);
until n = 0;
...это если без рекурсии

[Don Karleone]

или вот рекурсивный алгоритм:

function Count(m: Word): byte;
begin
if m < 10 then Count:=1
else Count:=Count(m div 10)+1;
end;

функция возвращает количество цифр в числе m.

[ROMA2PVT]

Don Karleone я бы сначала попросил автора показать что он предпринял для того чтобы написать программу(ато просто скинуть задания это как то туповато).

[Don Karleone]

Именно по этому я и не стал делать первую задачу! Она останется ему для самостоятельного решения.