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