Самостоятельная работа 8 класс "Программирование циклов с заданным условием продолжения работы"

Вариант 1

1.Определите число, которое будет напечатано в результате выполнения программы

var n, s: integer;

begin

  n := 0;

  s := 301;

  while s > 0 do

  begin

    s := s - 30;

    n := n + 2

  end;

  write(n)

end. 2.Определите, что будет напечатано в результате следующего алгоритма. var k, s: integer;  begin  s:=0;  k:=3;  while s < 66 do begin  k:=k+3;  s:=s+k;  end;  write(k);  end. 3. Определите, что будет напечатано в результате выполнения программы  :  var n, s: integer; begin     n := 4;     s := 0;     while n <= 8 do     begin         s := s + n;         n := n + 1     end;     write(s)

Вариант 2.

1.Определите число, которое будет напечатано в результате выполнения программы

var n, s: integer;

begin

  n := 0;

  s := 0;

  while s <= 125 do

  begin

    s := s + 10;

    n := n + 3

  end;

  write(n)

end.

2. Определите, что будет напечатано в результате следующего алгоритма.

var k, s: integer; 

begin 

s:=27; 

k:=0; 

while s < 66 do begin 

s:=s+k;

k:=k+1; 

end; 

write (k+1); 

end.

3.Определите, что будет напечатано в результате выполнения программы  :

var s, k : integer;

 begin

 s:=0;

    k:=1;

    while k<11 do

    begin

        s:=s+k;

        k:=k+1;

    end;

    write(s); 

Вариант 3

1.Определите число, которое будет напечатано в результате выполнения программы

var n, s: integer;

begin

  n := 0;

  s := 0;

  while s <= 157 do

  begin

    s := s + 10;

    n := n + 2

  end;

  write(n)

end.

2 Определите, что будет напечатано в результате следующего алгоритма.

var k, s: integer; 

begin 

s:=2; 

k:=0; 

while s < 66 do begin 

s:=s*4;

k:=k+1; 

end; 

write(k); 

end.

3.Определите, что будет напечатано в результате выполнения программы  :

var k, s: integer;

begin

       s:=3;

       k:=1;

      while k < 25 do begin

            s:=s+k;

            k:=k+2;

       end;

      write(s);

Вариант 4 1.      Запишите число, которое будет напечатано в результате выполнения следующей программы. var s, n: integer; begin   s := 0;   n := 76;   while s < 71 do   begin     s := s + 8;     n := n - 3   end;   writeln(n) end. 2. Определите, что будет напечатано в результате работы следующего фрагмента программы:  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. 3.Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin     n := 3;     s := 0;     while n <= 7 do     begin         s := s + n;         n := n + 1     end;     write(s); end.

Вариант 5 1.Запишите число, которое будет напечатано в результате выполнения следующей программы var s, n: integer; begin   s := 0;   n := 0;   while s < 71 do   begin     s := s + 10;     n := n + 2   end;   writeln(n) end. 2 Определите, что будет напечатано в результате выполнения программы, записанной ниже на разных языках программирования. var n, s: integer; begin     n := 1;     s := 0;     while n <= 100 do     begin         s := s + 30;         n := n * 2     end;     write(s) end.  3.Определите, что будет напечатано в результате работы следующего фрагмента программы:   var k, s: integer; begin        s:=0;        k:=0;       while s < 100 do begin             s:=s+k;             k:=k+4;        end;       write(k); end.

Вариант 6

1.Запишите число, которое будет напечатано в результате выполнения следующей программы

var s, n: integer;

begin

  s := 121;

  n := 0;

  while s > 0 do

  begin

    s := s - 10;

    n := n + 2

  end;

  writeln(n)

end.

2 Определите, что будет напечатано в результате работы следующего фрагмента программы:

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. 

3.Определите, что будет напечатано в результате работы следующего фрагмента программы:

 var n, s: integer;

begin

    n := 4;

    s := 0;

    while n <= 8 do

    begin

        s := s + n;

        n := n + 1;

    end;

    writeln(s);

end.

Вариант 7

1.Запишите число, которое будет напечатано в результате выполнения следующей программы.

var s, n: integer;

begin

  s := 0;

  n := 0;

  while s < 81 do

  begin

    s := s + 8;

    n := n + 2

  end;

  writeln(n)

end.

2. Определите, что будет напечатано в результате выполнения программы  .

 var n, s: integer;

begin

    n := 1;

    s := 26;

    while s <= 205 do

    begin

        s := s + 20;

        n := n * 2;

    end;

    writeln(n);

end.

3.Определите, что будет напечатано в результате работы следующего фрагмента программы:

  var k, s: integer;

begin

       s:=5;

       k:=0;

      while k < 15 do begin

            k:=k+2;

            s:=s+k;

       end;

      write(s);

end.

Вариант 8

1.Определите число, которое будет напечатано в результате выполнения программы

var n, s: integer;

begin

  n := 0;

  s := 0;

  while s <= 257 do

  begin

    s := s + 25;

    n := n + 2

  end;

  write(n)

end.

2. Определите, что будет напечатано в результате выполнения программы  .

var n, s: integer;

begin

    n : = 1;

    s : = 6;

    while s <= 365 do

    begin

        s : = s + 36;

        n : = n * 2

    end;

    write(n)

end. 

3.Определите, что будет напечатано в результате работы следующего фрагмента программы:

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.

Вариант 9

1.Определите число, которое будет напечатано в результате выполнения программы

var n, s: integer;

begin

  n := 0;

  s := 0;

  while s <= 257 do

  begin

    s := s + 20;

    n := n + 4

  end;

  write(n)

end.

2. Определите, что будет напечатано в результате выполнения программы  :

 var n, s: integer;

begin

    n : = 50;

    s := 1;

    while s < 1000 do

    begin

        s := s * 2;

        n := n + 10

    end;

    write(n);

end.

3.Определите, что будет напечатано в результате работы следующего фрагмента программы:

 var k, s: integer;

begin

       s:=0;

       k:=0;

      while k < 30 do begin

             k:=k+3;

            s:=s+k;

       end;

      write(s);

end.

Вариант 10^*

1.Определите число, которое будет напечатано в результате выполнения программы

var n, s: integer;

begin

  n := 0;

  s := 0;

  while s <= 107 do

  begin

    s := s + 10;

    n := n + 3

  end;

  write(n)

end.

2. Определите, что будет напечатано в результате выполнения программы  .

 program B05;

var n, s: integer;

begin

    n := 1;

    s := 0;

    while s <= 1024 do

    begin

        s := s + 128;

        n := n * 2;

    end;

    write(n)

end.Пояснение.

Цикл while выполняется до тех пор, пока истинно условие s ≤ 1024, т. е. переменная s определяет, сколько раз выполнится цикл.

Заметим, что После 9 шага s станет равной 1152 и условие s ≤ 1024 окажется невыполненным, цикл прервется. Следовательно, значение n будет равно 2⁹ = 512.

Ответ: 512.

6957

512

9. Задание 8 № 6989

3.Определите, что будет напечатано в результате выполнения программы

var k, s: integer;

begin

       s:=0;

       k:=1;

      while s < 66 do begin

             k:=k+3;

            s:=s+k;

       end;

      write(k);