Question

Определите, что будет напечатано в результате работы следующей программы.

Var k, і: integer;

Begin

k:= 1;

For і:= 1 to 3 do

k:= 3*k + 2*і;

Writeln(k);

End.

Answer 1

Решение:

Имеем цикл, в ходе которого элемент k = (3k +2i), где изначально k = 1; i = 1. Цикл работает, пока i <= 3, то есть, выполнится он 3 раза. Тогда имеем:

1) k = 3k + 2i = 3*1 + 2*1 = 5

2) k = 3k + 2i = 3*5 + 2*2 = 19

3) k = 3k + 2i = 3*19 + 2*3 = 63

Ответ: 63.