сообщение первоначально было записано в 32-битном коде. при его перекодировке в 16-битную кодировку КОИ-8 информационное сообщение уменьшилось на 960 бит. сколько символов соддержалось в сообщении?
begin ClrScr; for g:=0 to 12 do for k:=0 to 12 do for z:=0 to 12 do begin if (g+k+z=12) and (0.5*g+1.5*k+2*z=12) then WriteLn (g,' ',k, ' ', z); end; ReadLn; end.
Вывод: Можно вообще не брать красные или зеленые шары. Если брать шары всех цветов, то ответ у задачи один 7 3 2
// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?
var n,k: real; begin writeln('Введите количество ящиков мыла завезенных на склад'); readln (n); writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада'); readln (k); n:=n-(10*k); If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла') else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла'); end.
ответ:960бит•2=1920
1920:8=240бит(в одном любом символе 8 бит информации).
Объяснение: