Var a, b, c, D: real;
begin
write('Введите a, b, c>> ');
readln(a, b, c);
if a<>0 then
begin
D:=sqr(b)-4*a*c;
if D>=0 then writeln('Имеет корни') else writeln('Не имеет корней')
end
else
writeln('a не должен быть равным 0')
<span>end.</span>
Держи программу на паскале!!!думаю скрипт вы вряд ли учите
ПС функцию назвал просто L, так как ни один язык программирования не понимает записи функции L(t) да и программа работает!!!!!!!!!
Ответ:
50 байтов=400бит
Объяснение:
потому что там 48 букв и ,'! в итоге 50
10 паввапроитбютимпсаевуекнепроломс