Question

Начало

Ввод:x

Z=8*x

Z=кореньZ

Z=z-1

Y=3*x

Y=y/z

Вывод:y

Конец
Сделать в паскале

Answer 1

var x, y, z: real;

begin

   readln(x);

   z:= 8 * x;

   z:= sqrt(z);

   z:= z - 1;

   y:= 3 * x;

   y:= y / z;

   writeln(y)

end.