WhitePineapple
Var i:integer; y,x:real; begin writeln('Введите аргумент X'); readln(x); if (x>=0) and (x<=2) then begin y:=ln(30)+exp(2*x); writeln('1 случай:'); end else if (x<0) then begin y:=cos(x-5); writeln('2 случай:'); end else begin y:=2*pi*x; writeln('3 случай:'); end; writeln('Значение функции Y = ',y); end.
Answers & Comments
i:integer;
y,x:real;
begin
writeln('Введите аргумент X');
readln(x);
if (x>=0) and (x<=2) then
begin
y:=ln(30)+exp(2*x);
writeln('1 случай:');
end
else
if (x<0) then
begin
y:=cos(x-5);
writeln('2 случай:');
end
else
begin
y:=2*pi*x;
writeln('3 случай:');
end;
writeln('Значение функции Y = ',y);
end.