Program pr;
var x:integer;y:real;
begin
write('X=');
readln(x);
y:=cos(2*x)+sin(x);
writeln('y=',y);
end.
Использовать режим инкогнито во время работы в браузере
Var x,y:real;
begin
write('Введите х: ');
readln(x);
if x<0 then y:=1/x else y:=2*x;
writeln('y=',y)
<span>end.
var x,y:real;
begin
write('Введите х: ');
readln(x);
if (-2<=x) and (x<=2) then y:=x*x else y:=4;
writeln('y=',y)
<span>end.
var q,w,x:real;
begin
write('Введите q и w: ');
readln(q,w);
if q>w then x:=q+w else x:=q-w;
writeln('x=',x)
<span>end.</span></span></span>