Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
begin
F := -2*(x+2)*(x-6);
end;
Begin
a := -11; b := 11;
M := a; R:= F(a);
t:=a;
while t < b do
begin
if (F(t)>R) then
begin
M := t;
R:= F(t);
end;
t:=t+2;
end;
Write(R);
End.


Аноним: эт паскаль?

Ответы

Ответ дал: vimmortal2
2

Ответ:

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.

Вас заинтересует