Question

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a,b,t,M,R:integer;

Function F(x: integer):integer;

begin

  F := 6*(x+10)*(x+10)+30;

end

BEGIN

  a := -5; b := 20; 

  M := a; R:= F(a);

  for t := a to b do begin

    if F(t) > R then begin

      M := t;

      R:= F(t);

    end;

 end;

 writeln(R);

END

   

Answer 1

Засунь данное условие в Paskal и он выдаст тебе ответ.
Ответ:5430

Answer 2

А можно еще одну задачку подкинуть?Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer;
begin
n := 4;
s := 15;
while s <= 250 do begin
s := s + 12;
n := n + 2
end;
write(n)
end.

Answer 3

44