Ответ(ы) на вопрос:
ГостьВот) Тут используется формула [latex]a^b=e^{b*\text{log}_e{a}}[/latex]
var
i: integer;
begin
i := 1;
while exp(i*ln(5)) <= 25000 do
begin
writeln('A_', i, ' = ', exp(i*ln(5)));
inc(i);
end;
end.
Не нашли ответ?
Похожие вопросы