B21 - Анализ программ с циклами и подпрограммами

1. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
F:=4*(x-1)*(x-3);
end;
BEGIN
a:=-20; b:=0;
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;
write(M);
END.
Ответ: 
2. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
F:= 2*x*x + 8*x + 10;
end;
BEGIN
a:=-10; b:=10;
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;
write(M);
END.
Ответ: 
3. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
F:= 2*x*x + 8*x + 10;
end;
BEGIN
a:=0; b:=10;
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;
write(R);
END.
Ответ: 
4. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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(M);
End.
Ответ: 
5. Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K=30:
  var i, k: integer;
function F(x:integer):integer;
begin
F:=x*x*x*x;
end;
begin
i := 18;
readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
writeln(i);
end.
Ответ: 
6. Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K=20:
  var i, k: integer;
function F(x:integer):integer;
begin
F:=x*x+5*x;
end;
begin
i := 15;
readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
writeln(i);
end.
Ответ: 
7. Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K=20:
  var i, k: integer;
function F(x:integer):integer;
begin
if x < 3 then
F:= 1
else F:= F(x-1) + F(x-2);
end;
begin
i := 21;
readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
writeln(i);
end.
Ответ: 
8. Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K=18:
var i, k: integer;
function F(x:integer):integer;
begin
F:=x*x;
end;
begin
i := 0;
readln(K);
while F(i) < K do
i:=i+1;
writeln(i);
end.
Ответ: 
9. Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k=12.
var k, i : longint;
function f(n: longint): longint;
begin
f := n * n * n;
end;
function g(n: longint): longint;
begin
g := 3*n + 2;
end;
begin
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
writeln(i)
end.
Ответ: 
10. Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k=18.
var k, i : longint;
function f(n: longint): longint;
begin
f := n * n;
end;
function g(n: longint): longint;
begin
g := 2*n + 5;
end;
begin
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
writeln(i)
end.
Ответ: