Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=1; while s < 66 do begin k:=k+3; s:=s+k; end; write(k); end. Как решить таблицей? Скажите пожалуйста.

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

Программа:

pascal
Копировать
var 
  k, s: integer;
begin
  s := 0;
  k := 1;
  while s < 66 do
  begin
    k := k + 3;
    s := s + k;
  end;
  write(k);
end.

Что делает программа:

• Переменные s и k инициализируются значениями 0 и 1 соответственно.

• Затем в цикле while, пока s < 66, к k прибавляется 3, а к s прибавляется новое значение k.

• Как только s станет не меньше 66, цикл завершится и будет выведено значение k.

Как решить таблицей:

Сделаем таблицу с колонками:

На 6-й итерации значение s стало 69, то есть впервые превысило 66, и цикл завершился.

Последнее значение k в этот момент — 19.

Ответ:

Копировать
19