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

Задача №6:

var

       a, b: Integer;

       

begin

       Read (a, b);

       

       if a mod 2 = 1 then

               WriteLn (a + b)

       else

               WriteLn (a * b)

end.        

Задача №7:

var

       x, y: Real;

       

begin

       Read (x);

       

       if x > 0 then

               y := x - 12

       else

               if x < 0 then

                       y := sqr (x)

               else

                       y := 5;

               

       WriteLn (y)                

end.        

126

Объяснение:

В каждой итерации цикла к переменной S прибавляется 18, а к n - 6. Цикл будет остановлен, когда S окажется больше 365, следовательно до этого момента он сработает 365/18 = 21 раз.

Переменная n за 21 итерацию увеличится на 21*6 = 126.

ΔS = 0 -> 18 -> 36 -> 54 -> 72 -> 90 -> 108 -> 126 -> 144 -> 162 -> 180 -> 198 -> 216 -> 234 -> 252 -> 270 -> 288 -> 306 -> 324 -> 342 -> 360 -> 378

ΔN = 0 -> 6 -> 12 -> 18 -> 24 -> 30 -> 36 -> 42 -> 48 -> 54 -> 60 -> 66 -> 72 -> 78 -> 84 -> 90 -> 96 -> 102 -> 108 -> 114 -> 120 -> 126