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

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

   

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

44

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