Задачи из задания ege21 для подготовки к ЕГЭ по информатике

Функции (подпрограммы)
В этом задании можно выделить задачи следующих типов:
Экстремумы ( 41 )

2123 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F:=4*(x-5)*(x+3);
end;
begin
  a:=-20;
  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;
  write(M);
end. 
Ответ:
Решение:
   
2124 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F:=-(x+4)*(x+2);
end;
begin
  a:=-20;
  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;
  write(M);
end. 
Ответ:
Решение:
   
2125 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F:=3*(x-2)*(x+6);
end;
begin
  a:=-20;
  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;
  write(R);
end. 
Ответ:
Решение:
   
2126 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F:=(5-x)*(x+3);
end;
begin
  a:=-20;
  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;
  write(R);
end. 
Ответ:
Решение:
   
2127 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F:=(x-5)*(x+3);
end;
begin
  a:=-5;
  b:=5;
  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. 
Ответ:
Решение:
   
2128 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
begin
  F:=(x+5)*(x+3);
end;
begin
  a:=-5;
  b:=5;
  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. 
Ответ:
Решение:
   
2144 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=4*(x-5)*(x+3);
end;
begin
  a:=-20;
  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;
  write(m);
end.
Ответ:
Решение:
   
2145 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=-(x+4)*(x+2);
end;
begin
  a:=-20;
  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;
  write(m);
end.
Ответ:
Решение:
   
2146 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=3*(x-2)*(x+6);
end;
begin
  a:=-20;
  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;
  write(r);
end.
Ответ:
Решение:
   
2149 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=(x+5)*(x+3);
end;
begin
  a:=-5;
  b:=5;
  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.
Ответ:
Решение:
   
2150 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=(x+7)*(1-x);
end;
begin
  a:=-5;
  b:=5;
  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.
Ответ:
Решение:
   
2151 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=(x+5)*(1-x);
end;
begin
  a:=-5;
  b:=5;
  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.
Ответ:
Решение:
   
2152 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=(x+3)*(1-x);
end;
begin
  a:=-5;
  b:=5;
  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.
Ответ:
Решение:
   
2153 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
Ответ:
Решение:
   
2154 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:= x*x + 6*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.
Ответ:
Решение:
   
2155 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:= x*x - 8*x + 10;
end;
begin
  a:=-5;
  b:=5;
  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.
Ответ:
Решение:
   
2156 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:= x*x + 2*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.
Ответ:
Решение:
   
2157 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=4*(x-5)*(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.
Ответ:
Решение:
   
2158 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
Ответ:
Решение:
   
2159 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f:=-(x+4)*(x+2);
end;
begin
  a:=-2;
  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;
  write(m);
end.
Ответ:
Решение:
   
2160 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 2*(x-9)*(x-9)+12;
end;
begin
  a := -20;
  b := 20;
  m := a;
  r:= f(a);
  for t := a to b do
    if (f(t)<r) then
    begin
      m := t;
      r:= f(t);
    end;
  write(m);
end.
Ответ:
Решение:
   
2161 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 9*(x-15)*(x+17)+2;
end;
begin
  a := -20;
  b := 20;
  m := a;
  r:= f(a);
  for t := a to b do
    if (f(t)<r) then
    begin
      m := t;
      r:= f(t);
    end;
  write(m);
end.
Ответ:
Решение:
   
2162 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := -3*(x-10)*(x+2)+2;
end;
begin
  a := -20;
  b := 20;
  m := a;
  r:= f(a);
  for t := a to b do
    if (f(t)>r) then
    begin
      m := t;
      r:= f(t);
    end;
  write(m);
end.
Ответ:
Решение:
   
2163 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 5*(x+10)*(x+2)+2;
end;
begin
  a := -20;
  b := 20;
  m := a;
  r:= f(a);
  for t := a to b do
    if (f(t)<r) then
    begin
      m := t;
      r:= f(t);
    end;
  write(m);
end.
Ответ:
Решение:
   
2164 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
Ответ:
Решение:
   
2165 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
Ответ:
Решение:
   
2166 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
Ответ:
Решение:
   
2167 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x:integer):integer; 
begin
  f := 3*(x-8)*(x-8)
end;
begin
  a := -20;
  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;
  write(m);
end.
Ответ:
Решение:
   
2168 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 19*(16-x)*(16-x)+27;
end;
begin
  a := -20;
  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;
  write(m);
end.
Ответ:
Решение:
   
2169 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 19*(11-x)*(11-x)+27;
end;
begin
  a := -20;
  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;
  write(r);
end.
Ответ:
Решение:
   
2170 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 16* (9-х)*(9-х)+127;
end;
begin
  a:= -20;
  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;
  write(r);
end.
Ответ:
Решение:
   
2171 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 15*(5+x)*(5+x)+125;
end;
begin
  a := -25;
  b := 25;
  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(m);
end.
Ответ:
Решение:
   
2172 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 26*(9+х)*(9+х)+131;
end;
begin
  a:= -20;
  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;
  write(r);
end.
Ответ:
Решение:
   
2173 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 10*(5-x)*(5-x)+120;
end;
begin
  a := -20;
  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(m);
end.
Ответ:
Решение:
   
2174 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 19-19*(x-1)*(x-1);
end;
begin
  a := 10;
  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(m);
end.
Ответ:
Решение:
   
2175 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
Ответ:
Решение:
   
2176 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r:integer;
function f(x: integer):integer; 
begin
  f := 281 - 2*(17+x)*(17+x);
end;
begin
  a := -7;
  b := 25;
  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.
Ответ:
Решение:
   
2177 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r :integer;
function f(x:integer):integer; 
begin
  f := (x*x-9)*(x*x-9)+5
end;
begin
  a := -13;
  b := 13;
  m := a;
  r := f (a) ;
  for t := a to b do
    if (f(t) < r) then
    begin
      m := t;
      r := f(t)
    end;
  write(m+7)
end.
Ответ:
Решение:
   
2178 ege21 Экстремумы
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a,b,t,m,r :integer;
function f(x:integer):integer; 
begin
  f := (x*x-25)*(x*x-25)+15
end;
begin
  a := -15;
  b := 15;
  m := a;
  r := f (a) ;
  for t := a to b do
    if (f(t) <= r) then
    begin
      m := t;
      r := f(t)
    end;
  write(m+15)
end.
Ответ:
Решение:
   
Количество точек1 ( 27 )

2179 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n, p :integer;
function f(x: integer):integer; 
begin
  f := 3*(9-x)*(9-x)+12;
end;
begin
  a := -10;
  b := 10;
  p := 25;
  n := 0;
  for t := a to b do
  begin
    if (f(t) > p) then
    begin
      n := n+1;
    end;
  end;
  write(n);
end.
Ответ:
Решение:
   
2180 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n, p :integer;
function f(x: integer):integer; 
begin
  f := 4*(5-x)*(5-x)+10;
end;
begin
  a := -10;
  b := 10;
  p := 40;
  n := 0;
  for t := a to b do
  begin
    if (f(t) > p) then
    begin
      n := n+1;
    end;
  end;
  write(n);
end.
Ответ:
Решение:
   
2181 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n, z :integer;
function f(x: integer):integer; 
begin
  f := 2*(x-5)*(x-5)+4;
end;
begin
  a := -10;
  b := 10;
  z := f(a);
  n := 0;
  for t := a to b do
  begin
    if (f(t) < z) then
    begin
      n := n+1;
      z:=f(t);
    end;
  end;
  write(n);
end.
Ответ:
Решение:
   
2182 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n, z :integer;
function f(x: integer):integer; 
begin
  f := 2*(x-5)*(3-x)+4;
end;
begin
  a := 2;
  b := 9;
  z := f(a);
  n := 0;
  for t := a to b do
  begin
    if (f(t) < z) then
    begin
      n := n+1;
      z:=f(t);
    end;
  end;
  write(n);
end.
Ответ:
Решение:
   
2183 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n, z :integer;
function f(x: integer):integer; 
begin
  f := -2*(5-x)*(2-x)+4;
end;
begin
  a := 2;
  b := 9;
  z := f(a);
  n := 0;
  for t := a to b do
  begin
    if (f(t) < z) then
      n := n+1;
    z:=f(t);
  end;
  write(n);
end.
Ответ:
Решение:
   
2184 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n :integer;
function f(x: integer):integer; 
begin
  f := 16*(9-x)*(9-x)+127;
end;
begin
  a := -20;
  b := 20;
  n := 0;
  for t := a to b do
  begin
    if (f(t) >= 0) then
    begin
      n := n+1;
    end;
  end;
  write(n);
end.
Ответ:
Решение:
   
2185 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n :integer;
function f(x: integer):integer; 
begin
  f := 16*(9-x)*(9-x)-127;
end;
begin
  a := -20;
  b := 20;
  n := 0;
  for t := a to b do
  begin
    if (f(t) >= 0) then
    begin
      n := n+1;
    end;
  end;
  write(n);
end.
Ответ:
Решение:
   
2186 ege21 Количество точек1
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var
  a, b, t, n :integer;
function f(x: integer):integer; 
begin
  f := 16*(6-x)*(6-x)-450;
end;
begin
  a := -20;
  b := 20;
  n := 0;
  for t := a to b do
  begin
    if (f(t) >= 0) then
    begin
      n := n+1;
    end;
  end;
  write(n);
end.
Ответ:
Решение:
   
2187 ege21 Количество точек1
Определите, количество чисел 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.
Ответ:
Решение:
   
2188 ege21 Количество точек1
Определите, количество чисел 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.
Ответ:
Решение:
   
2189 ege21 Количество точек1
Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 22:
var
  i, k: integer;
function f(x:integer):integer; 
begin
  f:=x*x*x+x*x;
end;
begin
  i := 20;
  readln(k);
  while (i > 0) and (f(i) > k) do
    i:=i-1;
  writeln(i);
end.
Ответ:
Решение:
   
2190 ege21 Количество точек1
Определите, количество чисел 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.
Ответ:
Решение:
   
2191 ege21 Количество точек1
Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 25:
var
  i, k: integer;
function f(x:integer):integer; 
begin
  f:=x*x+8*x;
end;
begin
  i := 0;
  readln(k);
  while f(i) < k do
    i:=i+1;
  writeln(i);
end.
Ответ:
Решение:
   
2192 ege21 Количество точек1
Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 28:
var
  i, k: integer;
function f(x:integer):integer; 
begin
  f:=x*x*x+x*x+2*x;
end;
begin
  i := 0;
  readln(k);
  while f(i) < k do
    i:=i+1;
  writeln(i);
end.
Ответ:
Решение:
   
2193 ege21 Количество точек1
Определите, количество чисел 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.
Ответ:
Решение:
   
2194 ege21 Количество точек1
Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 30:
var
  i, k: integer;
function f(x:integer):integer; 
begin
  if x < 3 then
    f:= 1 
  else
    f:= 2*f(x-1) + f(x-2);
end;
begin
  i := 15;
  readln(k);
  while (i > 0) and (f(i) > k) do
    i:=i-1;
  writeln(i);
end.
Ответ:
Решение:
   
2195 ege21 Количество точек1
Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 36:
var
  i, k: integer;
function f(x:integer):integer; 
begin
  if x < 2 then
    f:= 1 
  else
    f:= f(x-1) + 2*f(x-2);
end;
begin
  i := 28;
  readln(k);
  while (i > 0) and (f(i) > k) do
    i:=i-1;
  writeln(i);
end.
Ответ:
Решение:
   
2196 ege21 Количество точек1
Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 45:
var
  i, k: integer;
function f(x:integer):integer; 
begin
  if x < 2 then
    f:= 1 
  else
    f:= 2*f(x-1) + f(x-2);
end;
begin
  i := 0;
  readln(k);
  while f(i) < k do
    i:=i+1;
  writeln(i);
end.
Ответ:
Решение:
   
2197 ege21 Количество точек1
Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 120:
var
  i, k: integer;
function f(x:integer):integer; 
begin
  if x < 1 then
    f:= 1 
  else
    f:= f(x-1) +3*f(x-2);
end;
begin
  i := 0;
  readln(k);
  while f(i) < k do
    i:=i+1;
  writeln(i);
end.
Ответ:
Решение:
   
2198 ege21 Количество точек1
Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 64. Значение k = 64 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n * n + 30
end;
begin
  readln(k);
  i := 12;
  while (i>0) and (f(i)>=k) do
    i := i-1;
  writeln(i)
end.
Ответ:
Решение:
   
2199 ege21 Количество точек1
Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 64. Значение k = 64 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n * n + 20
end;
begin
  readln(k);
  i := 12;
  while (i>0) and (f(i)>=k) do
    i := i-1;
  writeln(i)
end.
Ответ:
Решение:
   
2200 ege21 Количество точек1
Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 18. Значение k = 18 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(x: longint) : longint;
begin
  if x < 2 then
    f:= 1 
  else
    f:=3* f(x-1) - f(x-2)
end;
begin
  i := 11;
  readln(k);
  while (i> 0) and (f(i) > k) do
    i:=i-1;
  writeln(i)
end.
Ответ:
Решение:
   
2201 ege21 Количество точек1
Определите, какое значение H нужно ввести, чтобы число, напечатанное в результате выполнения следующего алгоритма, было наибольшим.
var
  a,b,t,m,r,h :integer;
function f(h, x: integer):integer; 
begin
  f := -5*(x-h)*(x-h)+3;
end;
begin
  readln(h);
  a := -20;
  b := 60;
  m := a;
  r := f(h, a);
  for t := a to b do
  begin
    if (f(h, t) < r) then
    begin
      m := t;
      r := f(h, t)
    end
  end;
  write(r)
end.
Ответ:
Решение:
   
2202 ege21 Количество точек1
Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 36. Значение k = 36 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint): longint;
begin
  f := n*(n-1)+10
end;
begin
  readln(k);
  i := 0;
  while (f(i)<k) do
    i := i+1;
  writeln(i)
end.
Ответ:
Решение:
   
2203 ege21 Количество точек1
Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 47. Значение k = 47 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint): longint;
begin
  f := n*(n+1)-5
end;
begin
  readln(k);
  i := 0;
  while (f(i)<=k) do
    i := i+1;
  writeln(i)
end.
Ответ:
Решение:
   
2204 ege21 Количество точек1
При каком наибольшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k = 64?
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n * n - 20
end;
begin
  readln(k);
  i := 12;
  while (i>0) and (f(i)> k) do
    i := i-1;
  writeln(i)
end.
Ответ:
Решение:
   
2205 ege21 Количество точек1
При каком наименьшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k = 90?
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n * n * n - 30
end;
begin
  readln(k);
  i := 12;
  while (i>0) and (f(i)> k) do
    i := i-1;
  writeln(i)
end.
Ответ:
Решение:
   
2218 ege21 Количество точек1
Определите, какое наибольшее целое значение H можно ввести, чтобы в результате выполнения программы было напечатано число 30.
var
  a,b,t,m,r,h :integer;
function f(h, x: integer):integer; 
begin
  f := 11*(x-h)*(x-h)+13;
end;
begin
  readln(h);
  a := 0;
  b := 30;
  m := a;
  r := f(h, a);
  for t := a to b do
  begin
    if (f(h, t) > r) then
    begin
      m := t;
      r := f(h, t)
    end
  end;
  write(m)
end.
Ответ:
Решение:
   
Диапазон чисел ( 5 )

_

2206 ege21 Диапазон чисел
Какое число будет напечатано в результате выполнения программы:
var
  i, k: integer;
function f(x: integer): integer;
begin
  if x > 0 then
    f := x mod 10 + f(x div 10) 
  else
    f := 0;
end;
begin
  k := 0;
  for i := 1000 to 9999 do
    if f(i mod 10) = 1 then
      if f(i div 100) = f(i mod 100) then
        k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2207 ege21 Диапазон чисел
Какое число будет напечатано в результате выполнения программы:
var
  i, k: integer;
function f(x: integer): integer;
begin
  if x > 0 then
    f := x mod 10 + f(x div 10) 
  else
    f := 0;
end;
begin
  k := 0;
  for i := 1000 to 9999 do
    if f(i mod 100) = 4 then
      if f(i div 100) = f(i mod 100) then
        k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2208 ege21 Диапазон чисел
Какое число будет напечатано в результате выполнения программы:
var
  i, k: integer;
function f(x: integer): integer;
var
  m: integer;
begin
  if x < 10 then
    f := x 
  else
  begin
    m := f(x div 10);
    if m < x mod 10 then
      f := x mod 10 
    else
      f := m;
  end;
end;
begin
  k := 0;
  for i := 1000 to 9999 do
    if f(i mod 100) = 1 then
      if f(i div 100) = f(i mod 100) then
        k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2209 ege21 Диапазон чисел
Напишите в ответе количество различных значений входной переменной a из интервала от 1000 до 2000 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 1111. Значение a = 1111 также включается в подсчёт различных значений a:
var
  a, i, k: integer;
function f(x: integer): integer;
var
  m: integer;
begin
  if x < 10 then
    f := x 
  else
  begin
    m := f(x div 10);
    if m < x mod 10 then
      f := x mod 10 
    else
      f := m;
  end;
end;
begin
  k := 0;
  readln(a);
  for i := 1000 to a do
    if f(i mod 100) = 1 then
      if f(i div 100) = f(i mod 100) then
        k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2210 ege21 Диапазон чисел
Какое число будет напечатано в результате выполнения программы:
var
  i, k: integer;
function f(x: integer): integer;
var
  m: integer;
begin
  if x < 10 then
    f := x 
  else
  begin
    m := f(x div 10);
    if m < x mod 10 then
      f := x mod 10 
    else
      f := m;
  end;
end;
begin
  k := 0;
  for i := 1000 to 3000 do
    if f(i mod 100) = 1 then
      if f(i div 100) =3 then
        k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
Количество точек2 ( 5 )

_

2211 ege21 Количество точек2
Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=14. Значение k=14 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := 2*n*n + 5;
end;
begin
  readln(k);
  i := 1;
  while f(i) < k do
    i:= i+1;
  if f(i)-k <= k-f(i-1) then
    writeln(i) 
  else
    writeln(i-1);
end.
Ответ:
Решение:
   
2212 ege21 Количество точек2
Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=9. Значение k=9 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n*n*n + 2*n;
end;
begin
  readln(k);
  i := 1;
  while f(i) < k do
    i:= i+1;
  if f(i)-k <= k-f(i-1) then
    writeln(i) 
  else
    writeln(i-1);
end.
Ответ:
Решение:
   
2213 ege21 Количество точек2
Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=17. Значение k=17 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n*n*n + 5*n*n;
end;
begin
  readln(k);
  i := 1;
  while f(i) < k do
    i:= i+1;
  if f(i)-k <= k-2*f(i-1) then
    writeln(i) 
  else
    writeln(i-1);
end.
Ответ:
Решение:
   
2214 ege21 Количество точек2
Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=13. Значение k=13 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n*n*n - 5*n;
end;
begin
  readln(k);
  i := 1;
  while f(i) < k do
    i:= i+1;
  if 2*f(i)-k <= k-f(i-1) then
    writeln(i) 
  else
    writeln(i-1);
end.
Ответ:
Решение:
   
2215 ege21 Количество точек2
Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=12. Значение k=12 также включается в подсчёт различных значений k.
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := 3*n*n - 2*n;
end;
begin
  readln(k);
  i := 1;
  while f(i) < k do
    i:= i+1;
  if f(i)-k <= f(i-1) then
    writeln(i) 
  else
    writeln(i-1);
end.
Ответ:
Решение:
   
Диапазон k ( 19 )

_

2216 ege21 Диапазон k
При каком наименьшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k=64?
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := n * n - 20
end;
begin
  readln(k);
  i := 12;
  while (i>0) and (f(i) >= k) do
    i := i-1;
  writeln(i)
end.
Ответ:
Решение:
   
2217 ege21 Диапазон k
При каком наибольшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k=60?
var
  k, i : longint;
function f(n: longint) : longint;
begin
  f := 2*n*n - 30
end;
begin
  readln(k);
  i := 15;
  while (i>0) and (f(i) >= k) do
    i := i-1;
  writeln(i)
end.
Ответ:
Решение:
   
2219 ege21 Диапазон k
Напишите в ответе наименьшее значение входной переменной 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.
Ответ:
Решение:
   
2220 ege21 Диапазон k
Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 16.
var
  k, i : longint;
function f(n: longint): longint;
begin
  f := n * n * n;
end;
function g(n: longint): longint;
begin
  g := 3*n + 3;
end;
begin
  readln(k);
  i := 1;
  while f(i) < g(k) do
    i := i+1;
  writeln(i)
end.
Ответ:
Решение:
   
2221 ege21 Диапазон k
Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 14.
var
  k, i : longint;
function f(n: longint): longint;
begin
  f := n * n * n;
end;
function g(n: longint): longint;
begin
  g := 5*n + 1;
end;
begin
  readln(k);
  i := 1;
  while f(i) < g(k) do
    i := i+1;
  writeln(i)
end.
Ответ:
Решение:
   
2222 ege21 Диапазон k
Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 30.
var
  k, i : longint;
function f(n: longint): longint;
begin
  f := n * n * n;
end;
function g(n: longint): longint;
begin
  g := 3*n + 6;
end;
begin
  readln(k);
  i := 1;
  while f(i) < g(k) do
    i := i+1;
  writeln(i)
end.
Ответ:
Решение:
   
2223 ege21 Диапазон k
Напишите в ответе наименьшее значение входной переменной 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.
Ответ:
Решение:
   
2224 ege21 Диапазон k
Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 45.
var
  k, i : longint;
function f(n: longint): longint;
begin
  f := 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.
Ответ:
Решение:
   
2225 ege21 Диапазон k
Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт ответ 21.
var
  k, i : longint;
function f(n: longint): longint;
begin
  f := n * n * n;
end;
function g(n: longint): longint;
begin
  g := n*n;
end;
begin
  readln(k);
  i := 1;
  while f(i) <= k*g(i) do
    i := i+1;
  writeln(i)
end.
Ответ:
Решение:
   
2226 ege21 Диапазон k
Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var
  i, k,a: integer;
function f(x: integer): integer;
begin
  if x >1 then
    f := x mod 2 + f(x div 2) 
  else
    f := x;
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(i) = 1 then
      k:=k+1;
  writeln(k);
end.
Ответ:
Решение:
   
2227 ege21 Диапазон k
Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var
  i, k,a: integer;
function f(x: integer): integer;
begin
  if x >1 then
    f := x mod 2 + f(x div 2) 
  else
    f := x;
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(i) = 2 then
      k:=k+1;
  writeln(k);
end.
Ответ:
Решение:
   
2228 ege21 Диапазон k
Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var
  i, k,a: integer;
function f(x: integer): integer;
begin
  if x >1 then
    f := x mod 3 + f(x div 3) 
  else
    f := x;
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(i) =2 then
      k:=k+1;
  writeln(k);
end.
Ответ:
Решение:
   
2229 ege21 Диапазон k
Напишите в ответе количество различных натуральных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт число меньше 20.
var
  i, k,a: integer;
function f(x: integer): integer;
begin
  if x >1 then
    f := x mod 2 + f(x div 10) 
  else
    f := x;
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(i) =1 then
      k:=k+1;
  writeln(k);
end.
Ответ:
Решение:
   
2230 ege21 Диапазон k
Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var
  i, k, a: integer;
function f(x: integer; y: integer): integer;
begin
  if x = y then
    f := x 
  else
    if x > y then
      f := f(x - y, y) 
    else
      f := f(x, y - x);
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(i, 4) = 2 then
      k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2231 ege21 Диапазон k
Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var
  i, k, a: integer;
function f(x: integer; y: integer): integer;
begin
  if y = 0 then
    f := x 
  else
    f := f(y, x mod y)
end;
begin
  k := 0;
  readln(a);
  for i := 4 to a do
    if f(i, 4) = 3 then
      k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2232 ege21 Диапазон k
Напишите в ответе минимальное натуральное число, при вводе которого программа выдаст число, отличное от нуля.
var
  i, k, a: integer;
function f(x: integer; y: integer): integer;
begin
  if y = 0 then
    f := x 
  else
    f := f(y, x mod y)
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(a, i) = 8 then
      k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2233 ege21 Диапазон k
Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 20 (включая границы), при которых программа выдаёт ответ 2.
var
  i, k, a: integer;
function f(x: integer; y: integer): integer;
begin
  if y = 0 then
    f := x 
  else
    f := f(y, x mod y)
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(a, i) = i then
      k := k + 1;
  writeln(k);
end.
Ответ:
Решение:
   
2234 ege21 Диапазон k
Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 30 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 17. Значение a = 17 также включается в подсчёт различных значений a.
var
  i, k, a: integer;
function f(x: integer; y: integer): integer;
begin
  if y = 0 then
    f := x 
  else
    f := f(y, x mod y)
end;
begin
  k := 0;
  readln(a);
  for i := 1 to a do
    if f(a, i) = i then
      k := k + 1;
  writeln(k);
end.
Ответ:
Решение: