1 красная, 2 зеленая, 3 красная, 4 желтая, 5 желтая, 6 синяя, 7 синяя
Количество информации вычисляется по формуле log(2)10≈3,32
Var
a,b,c,s,k,y:real;
begin
Read(a,b,c);
s:=a+Sqrt(a+b*b*b)/c;
k:=Sqr(s*s)-Sqrt(Abs(a*b*c));
y:=a*s+Sqrt(k)+s/(b*c);
Writeln(y)
end.
Пример
-7 2 9
95.1778833805713
16384бит равняеться 2048 байт
2048 байт равняеться 2 Кбайтам
var
s : string;
flag : boolean;
i, c : integer;
begin
readln (s);
c := 0; flag := false;
for i := 1 to length (s) do
begin
if flag then
begin
if s[i] = ' ' then flag := false;
end
else
if s[i] <> ' ' then
begin
inc (c);
flag := true;
end;
begin
end;
end;
writeln (c);
end.