//Вот на 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>
Документы , разную инфу ( про разные новости _)
text = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'
num = int(input())
str = input().strip()
res = ''
for c in str:
res += text[(text.index(c) + num) % len(text)]
print('Result: "' + res + '"')
256000 бит/с * 120 = 30720000 бит = 3840000 байт = 3750 кбайт