Прошу решите 1. чему равна переменная b ? a: = ( 17 div 5) + ( 17 mod 6) ; b: = (a div 2 ) + ( a mod 5 ); i: = 10 ; if ((a*a)mod b < > 0 ) then begin for i: = 0 to 10 do begin a: = a + i*b; b: = b – 1 end else for i: = 0 to 10 do begin a: =(a + i * b) * 2; b: =b – (a div 10) end end

Апр,  школа №151 мурманской области вам: 1) 24 буквы + 8 цифр = 32 символа 2) 32 символа + 1 пробел = 33 символа 3) а так как для 32 символов нужно 5 бит, то для 33 символов нужно 6 бит ответ: i = 6 бит 2. здесь каждый раз придется задавать вопросы, чтобы  уменьшить количество возможных вариантов. 1) больше или меньше 32? 2) больше или меньше 16? 3) больше или меньше 8? 4) больше или меньше 4? 5) больше или меньше 2? ответ: 5 вопросов. 3. не смогу . мне задали другое . удачи. 3 уже обеспечена : )

Var a, b, c, i, n, max, min: integer;     s : array [1..10000] of integer; begin     read (n);     for i: =1 to n do       read (s[i]);     max: =s[1];     min: =s[1];     a: =1;     b: =1;     for i: =1 to n do       begin       if s[i]> =max then             begin           max: =s[i];           a: =i;           end;       if s[i]< min then           begin           min: =s[i];           b: =i;           end;       end;     s[a]: =min;     s[b]: =max;     writeln;     for i: =1 to n do       write (s[i],' '); end.