var
s1, s2: string;
i: integer;
begin
s2:= ''; //Присваиваем строке начальное пустое значение
writeln('Введите слово s1');
readln(s1);
for i:= 1 to length(s1) do //length(s1) - длина строки s1
if i mod 2 = 0 then s2:= s2 + s1[i];
writeln('Полученное слово: ', s2);
end.
Две точки. Это правильный ответ. У меня по информатике пять
Количество информации в одном символе = log(2)32=5 бит
230 байт = 230*8 бит
Количество символов в сообщении = (230*8)/5 = 368
Var s:string;l,k,p:integer;beginwrite('Введите текст');//s:='Проверочный текст для разделения на слова и мы';read(s);l := s.Length;p:=1;while p <= l do beginif s[p] = 'ы' then k:= k +1;p:=p +1;end;write(l,k);end.