Вариант 3
1)Алгоритм вычисления следующего выражения: у = 12a2 + 7a - 16.
2)Составить алгоритм решения задачи для определения впишется ли квадрат в круг, если известны сторона квадрата и радиус круга.
3)Составить алгоритм выбора чисел, меньше заданного числа P, в последовательности квадратов натуральных чисел (1, 4, 9, 25 и т. д.)

Родился в деревне гмины Блендов Гроецкого уезда Варшавской губернии Царства Польского. Работал банковским служащим, политическую деятельность начал в период нацистской оккупации. В 1942 году вступил в Польскую рабочую партию (ПРП). Был боевиком Гвардии Людовой, участвовал в экспроприациях. Выполнял функции секретаря Крайовой Рады Народовой.[2]

В январе—марте 1945 года Казимеж Мияль являлся уполномоченным новых властей в Лодзи, до 1947 года возглавлял администрацию Лодзи. В 1946 году получил несколько высоких государственных наград. В 1948—1950 годах — начальник канцелярии Болеслава Берута. В декабре 1948 года кооптирован в ЦК ПОРП.

С апреля 1950 года по ноябрь 1952-го Мияль возглавлял министерство коммунального хозяйства в правительстве Юзефа Циранкевича. В 1952—1956 годах руководил Аппаратом (поль.) Совета министров ПНР. Затем до февраля 1957 года снова был министром коммунального хозяйства.

Казимеж Мияль принадлежал к окружению Берута и являлся влиятельным проводником сталинистской политики в Польше. Был одним из лидеров консервативной «фракции натолинцев», противостоящей реформаторской «фракции пулавян».

Объяснение:

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

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

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.