Var s:string;k,i:integer;beginreadln (s);k:=0;for i:=1 to length(s) doif s[i]='d' then k:=k+1;writeln(k);end.
Var i: integer; s:real;
Begin
For i:=7 to 2007 do
s:=s+i/(i+4);
Write(s);
End.
Сообщение в юникоде будет занимать в 2 раза больше места. Уравнение:
x + 8000 = 2x
x = 8000
Ответ: 8000 битов.
Обратно как не знаю но я перевела из десятичной в семирисную. ответ получился 1155,32 в семирчной системе счисления