Question

Определите, что будет напечатано в результате работы следующего фрагмента программы: 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

0

Почему?

Так как по сути s:=0*0

write(s) соответственно будет 0

Answer 2

Давайте разберемся с этим фрагментом программы:

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.

Давайте выполним цикл вручную, чтобы увидеть, что происходит на каждой итерации:

1. Итерация: k = 0, s = 0 + 2 * 0 = 0
2. Итерация: k = 3, s = 0 + 2 * 3 = 6
3. Итерация: k = 6, s = 6 + 2 * 6 = 18
4. Итерация: k = 9, s = 18 + 2 * 9 = 36

Так как на данном этапе k = 9 и это меньше 12 (условие цикла), программа продолжит выполнять итерации.

5. Итерация: k = 12. Однако, так как k уже больше или равно 12, цикл завершается.

Итак, значение s, которое будет напечатано в результате работы программы, равно 36.