Определить значение t, x и y после выполнения фрагмента программы:
t:= 169;
x:= (t mod 15) * 100;
y:= x div 110;
x:= (x*2) div y;
x:= x div 22;
t:= x – 9;

var i,s: integer;

{1}begin

s: =0;

for i: =1 to 1000  do

if i mod 2=0 then s: =s+i;

end.

{2}begin

for i: =1 to 1000 do

if odd(i) then s: =s+i;

{3}a: array[1..500] of integer;

n: integer;

for i: =1 to 1000 do

if odd(i) then a[i]: =i;

n: =i;

for i: =1 to n do

s: =a[i]+s;

end.

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.

9 кбатй = 73728 бит

73728/1536=48сек

1024*48=49152бит=6164 байт ( 1 байт = 8 бит)

2я скобка после --> всегда будет ложно 

а значит и 1 должна быть ложна т.к 0 --> 0 = 1,дгугие случаи не подходят.

ну и если поставить пару значений посчитать то х=2 самый лучший вариант

(25< 2(2+1)(2+> (2< 1)

25< 24 это лож

и 2< 1 тоже лож. а 0 --> 0 есть 1