Дана непустая строка s. вывести четные символы строки.

heylalaoxkpop heylalaoxkpop    3   14.06.2019 10:10    1

Ответы
45891233i 45891233i  02.10.2020 01:42
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);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика