Паскаль. написать программу по формуле:

pascalabc.net

begin

  var x : = readreal('x =');

  var y : = 2 * (x + 3) + sqr(3 / (1 - 4 * x));

  println(y)

end.

примечание. при х = 0.25 в знаменателе образуется ноль. в этом случае программа выдаст значение infinity (бесконечность).

caps lock,shift

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.