Question

Задание: Какое значение будет принимать переменная Y после выполнения фрагментов программы, сколько раз будет выполнен цикл?

1) Var

x,y: integer;

Begin

Y:=0;

For x:=1 to 9 do

Y:=y+1;

Writeln (‘y = ’,y);

End.

2) Var

Y, x: integer;

Begin

Y:=0;

X:=10;

While x>0 do

Begin

X:= x-2;

Y:= y+x;

End;

Writeln (‘y = ’,y)

End.

Answer 1

в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8

во 2 случае

y  0  8 14 18 20 20

x 10 8   6   4   2   0 

шагов 5, к концу Y=20