ИНФОРМАТИКА
Сообщение о том, что Коля живет на последнем этаже своего дома, содержит 3 бита информации. На каком этаже живет Коля?

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.

1.

использовать Чертежник

алг

нач

выбрать чернила (красный)

сместиться в точку (1, 1)

опустить перо

сместиться в точку (4, 7)

сместиться в точку (5, 7)

сместиться в точку (8, 1)

сместиться в точку (7, 1)

сместиться в точку (6.2,2.5)

сместиться в точку (2.8,2.5)

сместиться в точку (2, 1)

сместиться в точку (1, 1)

поднять перо

сместиться в точку (3.3,3.5)

опустить перо

сместиться в точку (5.7,3.5)

сместиться в точку (5, 5)

сместиться в точку (4, 5)

сместиться в точку (3.3,3.5)

поднять перо

сместиться в точку (0, 0)

кон

2.

использовать Чертежник

алг

нач

сместиться в точку (2.7,1)

опустить перо

сместиться в точку (6,9.8)

сместиться в точку (9.3,1)

сместиться в точку (1,6)

сместиться в точку (11,6)

сместиться в точку (2.7,1)

поднять перо

сместиться в точку (0,0)

кон

3.

использовать Чертежник

алг

нач

сместиться в точку (3,7)

нц 5 раз

опустить перо

сместиться на вектор (0,-2)

сместиться на вектор (-2,0)

поднять перо

сместиться на вектор (3,1)

кц

сместиться в точку (0,0)

кон

Объяснение:

Смотри картинки