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

Циклы
В этом задании можно выделить задачи следующих типов:
Простой подсчет ( 20 )

2066 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 3;
  s := 0;
  while n <= 7 do
  begin
    s := s + n;
    n := n + 1
  end;
  write(s)
end.
Ответ:
Решение:
   
2067 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 4;
  s := 0;
  while n <= 8 do
  begin
    s := s + n;
    n := n + 1
  end;
  write(s)
end.
Ответ:
Решение:
   
2068 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 4;
  s := 0;
  while n <= 13 do
  begin
    s := s + 15;
    n := n + 1
  end;
  write(s)
end.
Ответ:
Решение:
   
2069 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 1;
  s := 0;
  while n <= 20 do
  begin
    s := s + 33;
    n := n + 1
  end;
  write(s)
end.
Ответ:
Решение:
   
2070 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 1;
  s := 0;
  while n <= 101 do
  begin
    s := s + 7;
    n := n + 1
  end;
  write(s)
end.
Ответ:
Решение:
   
2071 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 0;
  s := 512;
  while s >= 0 do
  begin
    s := s - 20;
    n := n + 1
  end;
  write(n)
end.
Ответ:
Решение:
   
2072 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 24;
  s := 0;
  while n <= 28 do
  begin
    s := s + 20;
    n := n + 2
  end;
  write(s)
end.
Ответ:
Решение:
   
2073 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 12;
  s := 5;
  while n <= 25 do
  begin
    s := s + 12;
    n := n + 2
  end;
  write(s)
end.
Ответ:
Решение:
   
2074 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 2;
  s := 35;
  while n <= 25 do
  begin
    s := s + 20;
    n := n + 5
  end;
  write(s)
end.
Ответ:
Решение:
   
2075 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 4;
  s := 15;
  while s <= 250 do
  begin
    s := s + 12;
    n := n + 2
  end;
  write(n)
end.
Ответ:
Решение:
   
2076 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 0;
  s := 0;
  while s <= 35 do
  begin
    n := n + 1;
    s := s + 4
  end;
  write(n)
end.
Ответ:
Решение:
   
2077 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 0;
  s := 0;
  while s <= 256 do
  begin
    s := s + 25;
    n := n + 1
  end;
  write(n)
end.
Ответ:
Решение:
   
2078 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n:= 0;
  s:= 0;
  while s <= 365 do
  begin
    s:= s + 33;
    n:= n + 5
  end;
  write(n)
end.
Ответ:
Решение:
   
2079 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n:= 0;
  s:= 0;
  while s <= 365 do
  begin
    s:= s + 36;
    n:= n + 10
  end;
  write(n)
end.
Ответ:
Решение:
   
2080 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 1;
  s := 0;
  while s <= 365 do
  begin
    s := s + 36;
    n := n * 2
  end;
  write(n)
end.
Ответ:
Решение:
   
2081 ege8 Простой подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
  n := 0;
  s := 1;
  while s <= 1000 do
  begin
    s := s * 3;
    n := n + 3;
  end;
  write(n)
end.
Ответ:
Решение:
   
2082 ege8 Простой подсчет
Запишите число, которое будет напечатано в результате выполнения следующей программы:
var n, s: integer;
begin
  n := 1;
  s := 0;
  while n <= 650 do
  begin
    s := s + 20;
    n := n * 5
  end;
  write(s)
end.
Ответ:
Решение:
   
2083 ege8 Простой подсчет
Запишите число, которое будет напечатано в результате выполнения следующей программы:
var n, s: integer;
begin
  n := 1;
  s := 0;
  while n <= 300 do
  begin
    s := s + 30;
    n := n * 5
  end;
  write(s)
end.
Ответ:
Решение:
   
2084 ege8 Простой подсчет
Запишите число, которое будет напечатано в результате выполнения следующей программы:
var s, n: integer;
begin
  s := 0;
  n := 0;
  while s < 111 do
  begin
    s := s + 8;
    n := n + 2
  end;
  writeln(n)
end.
Ответ:
Решение:
   
2085 ege8 Простой подсчет
Запишите число, которое будет напечатано в результате выполнения следующей программы:
var s, n: integer;
begin
  s := 0;
  n := 0;
  while 2*s*s < 123 do
  begin
    s := s + 1;
    n := n + 2
  end;
  writeln(n)
end.
Ответ:
Решение:
   
Подсчет ( 10 )

2086 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=1;
  while k < 11 do
  begin
    s:=s+k;
    k:=k+1;
  end;
  write(s);
end.
Ответ:
Решение:
   
2087 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=0;
  while k < 30 do
  begin
    k:=k+3;
    s:=s+k;
  end;
  write(s);
end.
Ответ:
Решение:
   
2088 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=3;
  k:=1;
  while k < 25 do
  begin
    s:=s+k;
    k:=k+2;
  end;
  write(s);
end.
Ответ:
Решение:
   
2089 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=2;
  k:=2;
  while s < 50 do
  begin
    s:=s+k;
    k:=k+2;
  end;
  write(k);
end.
Ответ:
Решение:
   
2090 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=0;
  while s < 100 do
  begin
    s:=s+k;
    k:=k+4;
  end;
  write(k);
end.
Ответ:
Решение:
   
2091 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=1;
  while s < 66 do
  begin
    k:=k+3;
    s:=s+k;
  end;
  write(k);
end.
Ответ:
Решение:
   
2092 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=5;
  k:=0;
  while k < 15 do
  begin
    k:=k+2;
    s:=s+k;
  end;
  write(s);
end.
Ответ:
Решение:
   
2093 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=0;
  while k < 12 do
  begin
    s:=s+2*k;
    k:=k+3;
  end;
  write(s);
end.
Ответ:
Решение:
   
2094 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=0;
  while s < 80 do
  begin
    s:=s+2*k;
    k:=k+4;
  end;
  write(s);
end.
Ответ:
Решение:
   
2095 ege8 Подсчет
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=1;
  k:=0;
  while k < 13 do
  begin
    s:=s+2*k;
    k:=k+4;
  end;
  write(s+k);
end.
Ответ:
Решение:
   
Размер шага ( 5 )

2096 ege8 Размер шага
При каком наименьшем введенном числе d после выполнения программы будет напечатано 67?
var n, s, d: integer;
begin
  readln(d);
  n := 2;
  s := 0;
  while s <= 365 do
  begin
    s := s + d;
    n := n + 5
  end;
  write(n)
end.
Ответ:
Решение:
   
2097 ege8 Размер шага
При каком наибольшем введенном числе d после выполнения программы будет напечатано 89?
var n, s, d: integer;
begin
  readln(d);
  n := 5;
  s := 83;
  while s <= 1200 do
  begin
    s := s + d;
    n := n + 6
  end;
  write(n)
end.
Ответ:
Решение:
   
2098 ege8 Размер шага
При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?
var n, s, d: integer;
begin
  readln(d);
  n := 3;
  s := 57;
  while s <= 1200 do
  begin
    s := s + d;
    n := n + 4
  end;
  write(n)
end.
Ответ:
Решение:
   
2099 ege8 Размер шага
При каком наибольшем введенном числе d после выполнения программы будет напечатано 150?
var n, s, d: integer;
begin
  readln(d);
  n := 3;
  s := 38;
  while s <= 1200 do
  begin
    s := s + d;
    n := n + 7
  end;
  write(n)
end.
Ответ:
Решение:
   
2100 ege8 Размер шага
При каком наименьшем введенном числе d после выполнения программы будет напечатано 121?
var n, s, d: integer;
begin
  readln(d);
  n := 1;
  s := 46;
  while s <= 2700 do
  begin
    s := s + d;
    n := n + 4
  end;
  write(n)
end.
Ответ:
Решение:
   
2101 ege8 Размер шага
При каком наибольшем введенном числе d после выполнения программы будет напечатано 46?
var n, s, d: integer;
begin
  readln(d);
  n := 8;
  s := 78;
  while s <= 1200 do
  begin
    s := s + d;
    n := n + 2
  end;
  write(n)
end.
Ответ:
Решение: