Определите, что будет выведено на экран после выполнения фрагмента программы: x:=0; y:=5; While y больше 0 do begin y:=y - 2; x:=x + y; end; writeln ('x=', x); Ответ: х=5 3 х=3 5

Для того, чтобы определить, что будет выведено на экран после выполнения фрагмента данной программы, пройдемся по ее коду и найдем конечный результат:

1) x: = 0; y: = 5;

While y больше 0

do begin y: = y - 2; (y: = 5 - 2 = 3);

x: = x + y; (x: = 0 + 3 = 3);

2) Поскольку полученное значение y = 3 больше нуля, то мы не выходим из цикла while и продолжаем выполнение программы:

do begin y: = y - 2; (y: = 3 - 2 = 1);

x: = x + y; (x: = 3 + 1 = 4);

3) Поскольку полученное значение y = 1 больше нуля, то мы не выходим из цикла while и продолжаем выполнение программы:

do begin y: = y - 2; (y: = 1 - 2 = - 1);

x: = x + y; (x: = 4 + (-1) = 3);

4) Поскольку полученное значение y = - 1 меньше нуля, то мы выходим из цикла while и продолжаем выполнение программы:

end;

writeln ('x=', x);

В результате на экране выведется последнее значение x:

x = 3.

Ответ: х = 3.