Question

Дано слово s1.Получить слово s2, образованное нечетными буквами слова s1.

 

Answer 1

var a:integer;
var s1,s2:string;
begin
  inc(a);
  write('Vvedite slovo: ');
  readln(s1);
  repeat
   s2:=s2+s1[a];
   a:=a+2;
  until(a>length(s1));
  writeln(s2);
  readln;
end.