1.с клавиатуры вводится число от 1 до 999. напиши программу, которая выводит на экран количество разрядов в числе (1, 2 или 3).
2.с клавиатуры вводятся целые числа a, b и c — коэффициенты квадратного уравнения. напиши программу, которая решает квадратное уравнение и выводит корни x1 и x2 через пробел в порядке возрастания, если уравнение имеет два разных корня, корень х, если уравнение имеет два одинаковых корня, и строку "нет решений", если уравнение не имеет корней.
3.с клавиатуры вводятся целые числа x и y — координаты точки. напиши программу, которая выводит номер координатной четверти, в которой лежит точка с координатами (х; у).
1)
var n,k: integer;
begin
readln(n);
if (n>0) and (n<10) then k:=1
else if (n>9) and (n<100) then k:=2
else k:=3;
write(k);
end.
2)
var a,b,c: integer;
D,x1,x2: real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if(D>0) then begin
x1:=((-1)*b+sqrt(D))/(2*a);
x2:=((-1)*b-sqrt(D))/(2*a);
write(x1,' ',x2);
end else if (D=0) then begin
x1:=(-1)*b/(2*a);
write(x1);
end else write('Нет решений');
end.
3)
var x,y: integer;
begin
readln(x,y);
if(x=0) or (y=0) then write('точка лежит на координатной оси')
else begin
if(x>0) then begin
if(y>0) then write('I')
else write('IV');
end else
if(y>0) then write('II')
else write('III');
end;
end.