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

Question

Амина Алексеева

Информатика

10 сентября, 04:24

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

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Зёга · Answer 1

Цикл завершится при k = 50. Последнее число, которое будет добавлено к переменной s будет 49. Поскольку начальное значении k = 2, то цикл выполнится 49-1 = 48 раз

За счет прибавления k к переменной s она будет увеличена на сумму ряда 2, 3, 4 ...49. При входе в цикл s уже имела значение 2, его нужно будет прибавить к сумме ряда.

Ряд 2, 3, 4 ...49 - арифметическая прогрессия:

- число членов n = 48,

- разностью d = 1,

- первый член а₁ = 2 б

- последний член a₄₈ = 49.

Сумма членов прогрессии:

S = ((a₁ + a_n) * n) / 2 = ((2 + 49) * 48) / 2 = 1224.

Добавляем к сумме начальное значение s = 2:

s = 1224 + 2 = 1226.

Ответ: s = 1226.