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

Функции (подпрограммы)

Типы только для начальной подготовки (не нужно тренировать для экзамена):

Актуальные типы:

Устаревшие типы (нажмите, чтобы раскрыть)

Экстремумы ( 39 )
Количество точек1 ( 28 )
Диапазон чисел ( 5 )
_
Количество точек2 ( 5 )
_
Диапазон k ( 18 )
_

Экстремумы ( 39 )

2123 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 ( 28 )

2179 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_ege21 Количество точек1

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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 ( 18 )

2216 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_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 archive_ege21 Диапазон k

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 archive_ege21 Диапазон k

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 archive_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 archive_ege21 Диапазон k

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 archive_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 := 4 to a do
    if f(i, 4) = 3 then
      k := k + 1;
  writeln(k);
end.

Ответ:

Решение:

2232 archive_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 archive_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 archive_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.

Ответ:

Решение:

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

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке

Задать вопрос

Внимание!

Сообщить об ошибке