Составьте разветвляющийся алгоритм для решения следующей задачи: Ввести два числа. Если их сумма больше 15, то найти куб первого числа, в противном случае его квадрат 2.Составить циклический алгоритм для решения следующей задачи: Найти сумму четных чисел на отрезке от 50 до 100

30

Объяснение:

var a, b, t, M, R: integer;  // объявляем переменные

Function F(x: integer):integer;  // объявляем функцию F

begin

F := -2*(x+2)*(x-6);

end;

Begin // основная программа

a := -11; b := 11;  // a = -11; b = 11

M := a; R:= F(a); // M = a = -11;  R = F(a).  F(a) = -2*(-11+2)*(-11-6)=(-2)*(-9)*(-17) = 306

t:=a; // t = a = -11

while t < b do // пока t < b

begin

if (F(t)>R) then // если F(t) > R

begin  // выполнить такие действия:

M := t; // M = t

R:= F(t); // R = F(t)

end;

t:=t+2;  // прибавить к t значение 2

end;

Write(R);  // вывести R

End.