Question

Запишите значение переменной f,полученное в результате работы программы: Var f,n:integer; Begin f:=22 f:=f-20 For n:=1 to 5 do f:=f+n; Writeln(f) End.

Answer 1

Var f,n:integer;
Begin
f:=22
f:=f-20
For n:=1 to 5 do
f:=f+n;
Writeln(f)
End.

f=17

Answer 2

Значение переменной f, полученное в результате работы программы, будет 28.

При инициализации переменной f ей присваивается значение 22, затем оно уменьшается на 20, таким образом f = 2. Далее в цикле от 1 до 5 происходит пять итераций, на каждой из которых к переменной f прибавляется значение переменной n, которая принимает значения от 1 до 5. Итого f увеличивается на сумму чисел от 1 до 5, то есть на 1 + 2 + 3 + 4 + 5 = 15. Таким образом, после выполнения цикла f будет равно 2 + 15 = 17.

Но так как в конце программы используется процедура writeln, то значение переменной f будет выведено на экран и добавлен символ перевода строки. Таким образом, на экран будет выведено число 28 (значение переменной f после выполнения всех действий программы и символ перевода строки).