Ответ: одна буква несет 5 бит информации.
var a,b,c,y,x,z:real;
begin
readln(a,b,c);
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('y = ',(a-2)/(b*b-c):0:3);
writeln('x = ',(b*b+4*a*c)/(2*a):0:3);
writeln('z = ',(a/b)+(c/a)-((a*b+c*c)/(b*c)):0:3);
end.
Var a:real;k2,k5:integer;
begin
k2:=0; k5:=0;
read(a);
while a<>0 do begin
if a=2 then k2:=k2+1
else if a=5 then k5:=k5+1;
read(a) end;
write(k2,' ',k5)
<span>end.</span>
Считай варианты.
Плюшка с кофе.
Плюшка с соком
Плюшка с кефиром
Плюшка с чаем.
И столько же только с бутербродом вместо плюшки.
И того 8 вариантов