Ответы и объяснения

2013-10-03T18:33:55+04:00
1 задание
program abc;
uses crt;
 var x:integer;
      y:real;
begin clrscr;
write('x=');
readln(x);
y:=(sqrt(x+5))/(sqr(x)-6*x+8);
write('y=',y);
end.