Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
1)Азбука морзе:
Информатика - ..-....-.- - - .-.- -.--..-.-.-
2)Таблица Юникод(Unicode):
Инофрматика : 0428 041D 0424 041E 0420 041C 0410 0422 0418 041A 0410
3) Кодовая Таблица Символов:
Информатика : 136 173 228 174 224 160 226 168 170 160
100мбит = 12500килобайт.
0.1 / 125 = 0.00008
Ваш ответ: 0,00008.