Исправте ошибку program qwer;

var a, b, c, d:integer;

begin

readln;

d:=bb-4a*c;

if (d>0) then

writeln ('2 корня')

else

if (d=0) then

writeln ('1 корень')

else

writeln ('нет корней')

end.

Пишет всегда 1 корень

Question

Информатика

Люцина

5 ноября, 07:18

Исправте ошибку program qwer;

var a, b, c, d:integer;

begin

readln;

d:=bb-4a*c;

if (d>0) then

writeln ('2 корня')

else

if (d=0) then

writeln ('1 корень')

else

writeln ('нет корней')

end.

Пишет всегда 1 корень

+4

Ответы (1)

Знаете ответ на вопрос?

Минуша · Answer 1

var a, b, c, d:integer;

begin

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

read (a) ;

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

read (b) ;

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

read (c) ;

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

if (d>0) then

writeln ('2 корня')

else

if (d=0) then

writeln ('1 корень')

else

writeln ('нет корней') ;

end.

Исправте ошибку program qwer;var a, b, c, d:integer;beginreadln;d:=b*b-4*a*c;if (d>0) thenwriteln ('2 корня')elseif (d=0) thenwriteln ('1 корень')elsewriteln ('нет корней')end.Пишет всегда 1 корень

Исправте ошибку program qwer;

var a, b, c, d:integer;

begin

readln;

d:=bb-4a*c;

if (d>0) then

writeln ('2 корня')

else

if (d=0) then

writeln ('1 корень')

else

writeln ('нет корней')

end.

Пишет всегда 1 корень