Question

какие действия выполняет скрипт?

 

Var y,i: integer;

Begin

y := 5;

For i := 1 to 3 do

y := y + 5*i;

Writeln(y);

End.

Answer 1

y := 5 + 5*1;
y := 10 + 5*2;
y := 20 + 5*3;