Question

Чему будет равно значение целой переменной 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.

Answer 1

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.