1) определите значение переменной p после выполнения следующего фрагмента программы: p: =1; i: =3; while i < = 9 do begin p : = p * (i div 3); i : = i + 1; end; 2) s: =0; i: =7; while i > 1 do begin s : = s + i div 2; i : = i - 1; end; 3) s: =1; i: =1; while i < 5 do begin s : = s + i*(i+1); i : = i + 1; end; 4) a : = -5; b : = 14; b : = b + a*2; if a > b then c : = a + b else c : = b – a; 5) х : = 11; у : = 5; t : = y; у : = х mod у; x : = t; у : = у + 2*t;

Впервой после выполнения программы переменная p будет равна 24. во второй переменная s будет равна 12. в третьей переменная s будет равна 41. в четвёртой переменная c будет равна 9. в пятой переменные x и t  будут равны 5, а  переменная  y = 11.

Var   a: array[1..3,1..3] of integer;   t: array[0..2] of boolean;   k: array[0..2] of integer;   i,j: integer;   res: boolean; begin   for i : = 1 to 3 do   for j : = 1 to 3 do     read(a[i,j]);   for i : = 0 to 2 do   begin   k[i] : = 0;   t[i] : = false;   end;     for i : = 1 to 3 do   for j : = 1 to 3 do     k[a[i,j]] : = k[a[i,j]] + 1;     for i : = 1 to 3 do     begin     if (a[i,1] = a[i,2]) and (a[i,2] = a[i,3]) then         t[a[i,1]] : = true;     if (a[1,i] = a[2,i]) and (a[2,i] = a[3,i]) then         t[a[1,i]] : = true;     end;   if (a[1,1] = a[2,2]) and (a[2,2] = a[3,3]) then     t[a[2,2]] : = true;   if (a[3,1] = a[2,2]) and (a[2,2] = a[1,3]) then     t[a[2,2]] : = true;     res : = true;     if (k[1] - k[2] > 1) or (k[1] - k[2] < 0) then     res : = false;     if t[1] and ( t[2] or (k[1] = k[2]) ) then     res : = false;     if res then     writeln('yes')   else     writeln('no') end.

Допустим, соня разбила окно тогда говорят правду: миша, оля и рома допустим, миша тогда говорят правду: миша, оля и коля допустим, володя тогда говорят правду: соня, володя, оля, коля допустим, аня тогда говорят правду: миша, аня {просто чтобы убедиться, что решение единственно} допустим, оля тогда говорят правду: миша, оля, рома допустим, рома тогда говорят правду: миша, оля, коля допустим, коля тогда говорят правду: миша, оля, коля, толя допустим, толя тогда говорят правду: миша, оля, коля действительно, только в одном варианте истинны два высказывания -> аня разбила окно