//Вот на Pascal, если поможет (да и раз уж можно (комменты:) )), я пытался написать на С, но есть неразрешимая для меня проблема, я ж его не изучал) Ну, в общем, попробуйте переписать на С)
var
s, k: string;
begin
readln(s);
foreach c: char in s do
if not (Char.isDigit(c) or Char.IsLetter(c)) then
if (pos(c, k) = 0) then
k := k + c;
writeln(length(k));
<span>end.
=====================
</span>
2^i=N
2^i=32 => i=5 бит
Ответ: информационный объём данного сообщения равен 5 бит.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.
15 div 2 = 7
15 mod 2 = 5
21 div 6 = 3
21 mod 6 = 5
abs(sqrt(x)-x*x*x)-(7*x)/sqr(x) = |√x-x³|-7x/x²