Информатика

Розалинда

29 марта, 15:37

Паскаль

var a, b, c, D, x1, x2: integer;

Begin

a:=1;

b:=2;

c:=1;

D:=b*b-4*a*c;

if (d<0) then writeln ('Действительных корней нет') else

begin

x1: = (B-sqrt (D)) / (2*A) ;

x2: = (B+sqrt (D)) / (2*A) ;

end;

end.

Вопрос, что я делаю не так, если выбивает эту ошибку:

Program2. pas (9,6) : Нельзя преобразовать тип real к integer