Question

Помогите пожалуйста , составить программы для этих двух задач

Answer 1

1) var

y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=5/(2*sqr(x)-50);

writeln('y = ',y);

end.

2) var

y,x:integer;

begin

writeln('Введите значение x: ');

readln(x);

writeln('Введите значение y: ');

readln(y);

if x>y then

begin

writeln('x*2 = ',x*2)

end

else

if (x<y) or (x=y) then

begin

writeln('x*2 = ',x*2);

writeln('y*2 = ',y*2);

end;

end.