Uses crt;var a,i:byte;
s:real;
begin
clrscr;
for i:=1 to 4 do
begin
writeln('vvod');
readln(a);
if a mod 5=0 then writeln('Число ',a,' кратно 5 ')
else writeln('Число ',a,' не кратно 5')
end;
end.
M = 64*64*1024;
I = M*N = 64*64*1024*8 - в битах
(64*64*1024*8)/(8*1024*1024) = 4 - в Мбайтах.
<span>программе Excel поиск 25 в количество</span>
Пытаемся подобрать код, начиная с наименьшей длины.
Коды длины 1.
Е = 0: нет однозначности, 0101 = ОО = ЕТ
Е = 1: нет однозначности, 101 = Т = ЕО
Коды длины 2.
Е = 00: ок, получился префиксный код, про который известно, что он допускает однозначное декодирование.
Е = 01: совпадает с О
Е = 10: нет однозначности, 101101 = ТТ = ЕЛО
Е = 11: совпадает с Л.
Таким образом, есть единственный ответ 00.