Question

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

Answer 1

Число 165 напечатает

Answer 2

Определение результата работы программы

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

Var k, s: integer;

В этой строке объявляются две переменные `k` и `s`. Обе переменные имеют тип integer, что означает, что они будут хранить целочисленные значения.

s := 0;
k := 0;

Здесь переменным `k` и `s` присваиваются начальные значения. `s` инициализируется значением 0, а `k` также инициализируется значением 0.

while k < 30 do
begin
    k := k + 3;
    s := s + k;
end;

Этот блок кода представляет собой цикл `while`. Он будет выполняться до тех пор, пока значение переменной `k` будет меньше 30. Внутри цикла каждый раз значение переменной `k` увеличивается на 3, а затем это значение добавляется к переменной `s`. Таким образом, в каждой итерации цикла к переменной `s` добавляется числа, кратные 3 и меньшие 30.

write(s);

Последняя строка кода выводит значение переменной `s` на экран.

Результат

Результатом работы данного фрагмента программы будет вывод на экран суммы всех чисел, кратных 3 и меньших 30. Вот как будет выглядеть результат:

165

Таким образом, на экран будет выведено число 165, которое является суммой всех чисел, кратных 3 и меньших 30.