Var
a,b,c,d:real;
begin
Write('Введите коэффициенты уравнения a,b,c: ');
Readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end.
<span>a = 0
for i in range(int(input())):
a += int(input())
print(s<span>)</span></span>
Информаци + о + н + 'ые'
'тех' + н + о + лог + ии
<h3>То, что выделено в кавычках невозможно получить из этих слов.</h3>
44 в 10ичной = 54 в 8ричной
44 в 10ичной = 2С в 16ричной
44 в 10ичной = 10110 в 2ичной