Предмет: Информатика, автор: владюнефом

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

 

Ответы

Автор ответа: Darkevil1255
0

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.

Похожие вопросы
Предмет: Математика, автор: ayiarobloxxd