Сколько раз выполнится цикл? Какое значение примет переменная Y после выполнения программы? 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.
Цикл выполняется 3 раза.
Y будет равно 20