Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=3; for i:=1 to 4 do begin a:=a+a; end; Определите, что будет напечатано в результате работы следующей программы. Var v, i: integer; Begin v:= 30; For i:= 1 to 6 do v:= v – i; Writeln(v); End.

a:=3;

for i:=1 to 4 do begin

a:=a+a;

// 3 + 3 = 6 //

// 6 + 6 = 12 //

// 12 + 12 = 24 //

// 24 + 24 = 48 //

end;

ответ: 48.

Var v,i: integer;

Begin

v:= 30;

For i:= 1 to 6 do

v:= v - i;

// 30 - 1 = 29 //

// 29 - 2 = 27 //

// 27 - 3 = 24 //

// 24 - 4 = 20 //

// 20 - 5 = 15 //

// 15 - 6 = 9 //

Writeln(v);

End.

ответ: 9.