Question

Решите информатику плиииизизииззиииззиииииииз 1.Определите, что будет напечатано в результате работы следующего фрагмента программы: 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. 2.var s, n: integer; begin     s := 300;     n := 100;   while s - n >= 100 do     begin         s := s + 20;         n := n + 30     end; writeln(s) end. 3.var s, n: integer; begin     s := 300;     n := 100; while s div n >= 2 do begin         s := s + 5;         n := n + 5     end;     writeln(s) end. 4.Определите, что будет напечатано в результате работы следующего фрагмента программы: 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.

Answer 1

Ответ:

1)80

2)520

3)405

4)36

Answer 2

Давайте рассмотрим каждый из предоставленных фрагментов программы и определим, что будет напечатано в результате их выполнения.

1. Фрагмент программы:

pascalCopy code
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.

В этом фрагменте переменные s и k инициализируются нулем. Затем цикл while будет выполняться, пока значение s меньше 80. Внутри цикла каждый раз значение s увеличивается на 2 * k, а значение k увеличивается на 4. Поскольку k увеличивается с каждой итерацией, а s увеличивается на удвоенное значение k, то можно заметить, что s будет увеличиваться гораздо быстрее, чем k.

Когда значение s превысит 80, цикл завершится. Затем будет выведено значение s, которое, как мы заметили, увеличивается гораздо быстрее, чем k. Таким образом, результатом будет какое-то значение, превышающее 80.

2. Фрагмент программы:

pascalCopy code
var s, n: integer;
begin
  s := 300;
  n := 100;
  while s - n >= 100 do
  begin
    s := s + 20;
    n := n + 30;
  end;
  writeln(s);
end.

В этом фрагменте переменные s и n инициализируются значениями 300 и 100 соответственно. Цикл while будет выполняться, пока разница между s и n больше или равна 100. Внутри цикла значения s увеличивается на 20, а значения n увеличивается на 30.

Цикл будет выполняться до тех пор, пока разница между s и n останется больше или равной 100. После окончания цикла будет выведено значение s, которое, в данном случае, равно 320 (300 + 20).

3. Фрагмент программы:

pascalCopy code
var s, n: integer;
begin
  s := 300;
  n := 100;
  while s div n >= 2 do
  begin
    s := s + 5;
    n := n + 5;
  end;
  writeln(s);
end.

В этом фрагменте переменные s и n инициализируются значениями 300 и 100 соответственно. Цикл while будет выполняться, пока результат целочисленного деления s на n больше или равен 2. Внутри цикла значения s увеличивается на 5, а значения n также увеличивается на 5.

Цикл будет выполняться до тех пор, пока результат целочисленного деления s на n останется больше или равным 2. После окончания цикла будет выведено значение s, которое, в данном случае, равно 310.

4. Фрагмент программы:

pascalCopy code
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.

В этом фрагменте переменные s и k инициализируются нулем. Цикл while будет выполняться, пока значение k меньше 12. Внутри цикла каждый раз значение s увеличивается на 2 * k, а значение k увеличивается на 3.

Цикл будет выполняться для значений k от 0 до 9 (включительно), после чего значение k станет равным 12 и цикл завершится. Значит, результатом будет сумма всех увеличений s в каждой итерации, то есть: 0 + 20 + 23 + 26 + 29 = 54.