Felorana
6 год назад
Пожалуйста посчитайте, пожалуйста, написать программу
ОТВЕТЫ
Neumann Nicole
Oct 24, 2020
Вот) Тут используется формула
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.
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.
540
Смежные вопросы:
