Question

Сколько раз выполнится цикл? Какое значение примет переменная 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.

Answer 1

Цикл выполняется 3 раза.

Y будет равно 20