1.
var a,b,c,d,x1,x2:real;
begin
write('a, b, c: ');
readln(a,b,c);
d:=b*b-4*a*c;
if d>=0
then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 = ',x1,' x2 = ',x2);
end
else writeln('Уравнение не имеет решений');
end.
Пример:
a, b, c: 2 3 1
x1 = -0.5 x2 = -1
2.
var n:integer;
begin
write('n = ');
readln(n);
if n>0
then writeln(n,' - положительное')
else if n<0 then writeln(n,' - отрицательное')<br> else writeln('n = 0');
end.
Пример:
n = -7
-7 - отрицательное