Определите значение переменной y после выполнения следующего фрагмента программы:

х:=25;

у:=20;

while x*y<0 do;

begin

x:=x-5;

y:=y+2;

end;

3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=2; for i:=0 to 2 do begin a:=a+i; end; Ответ: введите число 4.

1) Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a : = 3 + 8*4; b : = (a div 10) + 14; a : = (b mod 10) + 2;

3. Определите значение переменной с после выполнения следующего фрагмента программы: a : = 30; b : = 14; a : = a - 2 * b; if a > b then c : = b + 2 * a else c : = b - 2 * a; 4.

10. Определите значение переменной с после выполнения следующего фрагмента программы: a: = 5; a: = 12 - a*a; b: = - a; c: = 10*a - b; 11.

1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.