Ниже записана программа. Получив на вход число x, программа печатает три числа a, b и c. Какое число x нужно ввести, чтобы получить a=1,b=3,c=8?
2 задание
!

1) Наблюдать это: смотреть и слушать.
2) Сбор информации - это наблюдение и записывание.
     Представить информацию на носителе - это зарисовать или записать.
3) * это цветок (листья, на которые падает дождь)
    * это собачка (два уха, 4 лапки, хвост, 2 глаза и черный носик)
получения информации:
    - наблюдение
    - беседа
    - измерение
    - исследование
    - чтение
5) Действия с информацией: изображать схему, рисовать, записывать, наблюдать, запоминать, мыслить, думать.
     Действия с предметами: рубить дрова, резать картофель, готовить суп.
6) А) бинокль, микроскоп, лупа
     Б) линейка, транспортир, термометр

Типовая задача на разбор случаев. Разбирать случаи будем не простым последовательным перечислением, а более сложной конструкцией из вложенных условных операторов.

Решение задачи.

Var a1, b1, c1, {коэффициенты уравнения первой прямой}

    a2,b2,c2, {коэффициенты уравнения второй прямой}

    x, y : Real; {координаты точки пересечения }

BEGIN

ReadLn( a1, b1, c1);

ReadLn( a2, b2, c2);

 If ( (a1=0) and (b1=0) ) or ( (a2=0) and (b2=0) )

 then WriteLn( 'это не прямая (прямые). ' )

 else

  if (a1*b2=a2*b1) and (a1*c2=a2*c1) {условие совпадения}

   then WriteLn( 'прямые совпадают.' )

   else

    if a1*b2 = a2*b1 {условие параллельности}

     then WriteLn('прямые параллельны.')

     else begin x:=(c1*b2-c2*b1)/(b1*a2-b2*a1);

         y:=(c2*a1-c1*a2)/(b1*a2-b2*a1);

         WriteLn('координаты точки пересечения :',

        ' x = ', x : 5 : 2 , ', y = ', y : 5 : 2);

          end;

END.