X:integer;
y:real;
function f(a:real):real;
begin
if a>=0 then
begin
f:=exp(a*ln(10));
end;
if a<0 then
begin
f:=20*sqr(a);
end;
end;
begin
x:=-5;
while x>-6 do
begin
y:=(exp(3*ln(f))+f(x))/(abs(f(x+5)));
if x=0 then writeln('y = Рішення не має')
else writeln('y =', y);
x:=x+5;
while x>25 do
end;
end.
17.pas(20) : Нет перегруженной подпрограммы с такими типами параметров

BratanTVision    3   13.04.2020 19:36    1