Var a,b,c,d,x1,x2:real; begin writeln('Введите коэффициенты уравнения через пробел'); read( a,b,c); d:=sqr(b)-4*a*c; if d<0 then writeln( 'Нет корней'); if d>0 then begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); writeln(x1:6:2, x2:6:2); end else begin x1:=-b/(2*a); writeln(x1:6:2); end; readln; end;
Классификация на русском языке: Части речи: (самостоятельные, служебные, междометия), звуки: (твёрдые, мягкие). Суффиксы: (действительные, страдательные) Классификация на географии: Мировой океан: (Воды суши, вода в атмосфере, вода в живых организмах), воды суши: (реки, озёры, каналы). Классификация на математике: Уравнения: (простые, сложные), числа :(двухзначные и однозначные). Классификация на биологии: Вегетативные органы растений: (корень, побег), строение цветка: (чашеложе, лепестки, пестик, тычинка)
begin
writeln('Введите коэффициенты уравнения через пробел');
read( a,b,c);
d:=sqr(b)-4*a*c;
if d<0
then writeln( 'Нет корней');
if d>0 then begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a);
writeln(x1:6:2, x2:6:2); end
else begin x1:=-b/(2*a);
writeln(x1:6:2); end;
readln;
end;