Question

Решите задачу по инфе пожалуста.Дано слово,состоящее из чётного числа букв,вывести буквы,стоящие на чётных местах.

Answer 1

var s: string; i: byte;
begin
  write('Введите слово:   ');
  readln(s);
  writeln;
  i:=2;
  while i<=length(s) do begin
    write (s[i]); 
    i:=i+2
  end
end.

--------------------------------------
Введите слово:   Калифорния

аионя