Program SomeProgram;var a : array[0..3] of Integer = (1,7,-7,-14); i : integer; count : integer = 0;begin // с возможно вам нужно с обычного for for i in a do begin if ((i div 7) < 0 ) then begin count := count + 1; end; end; writeln('(for) количество подходящих чисел: ', count); // с количество подходящих чисел: ', count); // с тут главное правльно поставить условие после until i := 0; count := 0; repeat if ((a[i] div 7) < 0) then begin count := count + 1; end; i := i + 1; until i = length(a); writeln('(repeat until) количество подходящих чисел: ', count); end.
Для записи личного кода могут использоваться 22+9=31 символ. Для кодирования 31го символа достаточно диапазона чисел от 0 до 30. Для записи числа 30 требуется двоичный логарифм от 30 = 5 бит (округляем в большую сторону). Итого на личный код требуется 14*5 = 70 бит 70/8 = 9 байт (округляем в большую сторону). Двоичный логарифм 60 = 6 бит (округляем в большую сторону), которые умещаются в 1 байт. Итого на личный код и номер подразделения требуется 9+1=10 байт. Следовательно, для дополнительных сведений остается 20-10=10 байт.
12000+500+30+7
Объяснение: