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

1. Определите, при каком наименьшем введённом значении переменной s программа выведет число 64.

var s, n: integer;
begin
  readln (s);
  n := 1;
  while s < 51 do begin
    s := s + 5;
    n := n * 2
  end;
  writeln(n)
end.

2. При каком наибольшем введенном числе d после выполнения программы будет напечатано 55?

var n, s, d: integer;
begin
  readln(d);
  n := 0;
  s := 0;
  while s <= 365 do begin
    s := s + d;
    n := n + 5
  end;
  write(n)
end.

3. (М.В. Кузнецова) Определите, при каком наибольшем введённом значении переменной s программа выведет число 128.

var s, n: integer;
begin
  readln (s);
  n := 1;
  while s < 94 do begin
    s := s + 8;
    n := n * 2
  end;
  writeln(n)
end.

4. (М.В. Кузнецова) Определите, при каком наименьшем введённом значении переменной s программа выведет число 256.

var s, n: integer;
begin
  readln (s);
  n := 1;
  while s <=45 do begin
    s := s + 4;
    n := n * 2
  end;
  writeln(n)
end.

5. (М.В. Кузнецова) Определите, при каком наибольшем введённом значении переменной s программа выведет число 256.

var s, n: integer;
begin
  readln (s);
  n := 1;
  while s <= 45 do begin
    s := s + 4;
    n := n * 2
  end;
  writeln(n)
end.

6. (М.В. Кузнецова) Определите, при каком наименьшем введённом значении переменной s программа выведет число 96.

var s, n: integer;
begin
  readln (s);
  n := 3;
  while s <= 51 do begin
    s := s + 7;
    n := n * 2
  end;
  writeln(n)
end.

7. (М.В. Кузнецова) Определите, при каком наибольшем введённом значении переменной s программа выведет число 96.

var s, n: integer;
begin
  readln (s);
  n := 3;
  while s <= 51 do begin
    s := s + 7;
    n := n * 2
  end;
  writeln(n)
end.

8. (М.В. Кузнецова) Определите, при каком наибольшем введённом значении переменной s программа выведет число 128.

var s, n: integer;
begin
  readln (s);
  n := 1;
  while s > 43 do begin
    s := s - 8;
    n := n * 2
  end;
  writeln(n)
end.

9. (М.В. Кузнецова) Определите, при каком наименьшем введённом значении переменной s программа выведет число 31.

var n, s: integer;
begin
  readln(s);
  n := 10;
  while s > 0 do begin
    s := s - 15;
    n := n + 3;
  end;
  write(n)
end.

10. (М.В. Кузнецова) Определите, при каком наибольшем введённом значении переменной s программа выведет число 31.

var n, s: integer;
begin
  readln(s);
  n := 10;
  while s > 0 do begin
    s := s - 15;
    n := n + 3;
  end;
  write(n)
end.