Ростиславович
6 год назад
Помогите, пожалуйста, написать программу
ОТВЕТЫ
Нонн
Jul 1, 2019
Вот) Тут используется формула 
var
i: integer;
begin
i := 1;
while exp(i*ln(5)) lt;= 25000 do
begin
writeln(A_, i, = , exp(i*ln(5)));
inc(i);
end;
end.
var
i: integer;
begin
i := 1;
while exp(i*ln(5)) lt;= 25000 do
begin
writeln(A_, i, = , exp(i*ln(5)));
inc(i);
end;
end.
136
