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

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

Comments

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

---

44