Информатика

Марка

2 февраля, 21:02

Кто может сказать, в чем ошибка? Нужно получить значение выражения, но при вводе цифр "1","0","1" значение = бесконечности. Т

program laba1;

var a, b, c, f:real;

begin

writeln ('введите a') ;

readln (a) ;

writeln ('введите b') ;

readln (b) ;

writeln ('введите c') ;

readln (c) ;

f: = (b+sqrt (b*b+4*a*c)) / (2*a) - (a*a*a) * c+1/sqr (b) ;

writeln ('f = ', f) ;

readln;

end.