Напечатать таблицу значений функции y=x3 при изменении х от 2 до 12 с шагом 2.
program a;
uses crt;
var i:integer;
function fun(x:real):real;
begin
fun:=exp(3*ln(x));
end;
begin
clrscr;
for i:=1 to 6 do begin
writeln(f( ,2*i,)= , fun(2*i));
end;
readkey;
end.
Оцени ответ
