Б- прав Боря так как в первом предложении 24 буквы а каждая буква содержит 8 бит информации из этого вытекает то что 1 предложение весит 24*8=192 бита
2468,6824,4682,2486,2684,2648,6248,6842,2846,2864,6284,8642,8624,8264,8246,8426,8462,4862,4826,4286,4268,4628,4682.
Max = A
if B > Max then Max = B
if C > Max then Max = C
Или по-другому
if (A>B) and (A>C) then Max = A
if (B>A) and (B>C) then Max = B
if (C>B) and (C>A) then Max = C
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.