Укажите по возрастанию последовательность значений выберите один ответ: 1. 20 бит, 2 байта, 15 бит 2. 2 байта, 15 бит, 20 бит 3. 15 бит, 2 байта, 20 бит 4. 15 бит, 20 бит, 2 байта

1байт = 8 бит. переведем все в биты. 2 байта =16 бит. тогда  15 бит -> 2  байта -> 20 бит ответ: 3.

Const eps=1e-8; var a,b,c: real;       s1,s2,s3: integer; begin read(a); read(b); read(c); if a> 0 then s1: =s1+1; if b> 0 then s1: =s1+1; if c> 0 then s1: =s1+1; if a< 0 then s2: =s2+1; if b< 0 then s2: =s2+1; if c< 0 then s2: =s2+1; if frac(a)< eps then s3: =s3+1; if frac(b)< eps then s3: =s3+1; if frac(c)< eps then s3: =s3+1; writeln('число положительных чисел =  ',s1); writeln('число отрицательных чисел =  ',s2); writeln('число целых  чисел =  ',s3); end. /* для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. при сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */

Var   n, a, b, c, d, s, p: integer; begin   write('введите натуральное четырехзначное число: ');   readln(n);   if (n > 9999) or (n < 1000) then writeln('число должно быть четырехзначным')   else begin       a : = n div 1000; d : = n mod 10; n : = (n div 10) mod 100;       b : = n div 10; c : = n mod 10;       s : = a + b + c + d;       p : = a * b * c * d;       writeln('сумма цифр равна ', s, ', а их произведение равно ', p)   end end. тестовое решение: введите натуральное четырехзначное число: 2345 сумма цифр равна 14, а их произведение равно 120