1 задача:
var n:integer;
x:real;
begin
writeln ('Введите число X'); readln(x);
writeln ('Введите максимальную степень числа X'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
end.
----------------------
2 задача:
const x=2;
var n:integer;
begin
writeln ('Введите максимальную степень числа 2'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О