Var arr:array of char;
var c:char = chr(63);
var str:String;
begin
WriteLn('Введите строку:');
Read(str);if str.length<> 6 then
WriteLn('Длина строки больше или меньше 6.')
else
begin
arr:=str.ToCharArray();
arr[1]:= c;
arr[4]:= c;
arr[5]:= c;
str:= '';
for var i:= 1 to arr.Length do
str+=arr[i-1];
WriteLn(str);
end;
end.
Ввод:
знания
Вывод:
з?ан??
256000 бит/с=32000 Б/с = 31,25 Кбайт/с
31,25*120=3750 Кбайт
правильнее наверное будет так:
за 2 минуты передали 256000 бит/с * 120 с = 30720000 бит = 3840000 Б = 3750 Кбайт
Число букв
Число гласных
Число согласных
То же слово, но записанное в обратном порядке
Порядковый номер первой буквы в русском алфавите
1)33554432:8:1024:1024=4 Гб
И это, к сожалению, все, что Я знаю XD