Var
i:integer;
s,t:string;
begin
writeln ('Введите строку');
readln(s);
i:=2;
while i<=length(s) do
begin
t:=t+s[i];
i:=i+2;
end;
writeln(t);
<span>end.</span>
Ресурсы человеческого мозга рассчитаны на переработку информации в 16 бит
1.+++-
2.++++
3.++++
4.+---
5.+--+
6.----
Ввод: микрофон, вебкамера, тачпад, сканер, клавиатура
Вывод: монитор, принтер, колонки, плоттер
Хранение: юсб-накопитель, жесткий диск