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

Var f,n: integer;
Begin
f:= 4;
f:= f*3;
For n := 1 to 4 do
f := f+n;
Writeln(f) ;
End.

Выберете правельный ответ:
а) 16
б) 48
в) 22
г) 24​

в) 22

Объяснение:

Var f,n: integer;

Begin

f:= 4;

f:= f*3;

// f = 4*3 = 12

For n := 1 to 4 do

f := f+n;

//Выполняется цикл для значений n от 1 до 4

//n = 1: f = 12 + 1 = 13

//n = 2: f = 13 + 2 = 15

//n = 3: f = 15 + 3 = 18

//n = 4: f = 18 + 4 = 22

Writeln(f) ;

// f = 22

End.