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

Angelina862k Angelina862k    1   19.05.2019 06:50    71

Ответы
Human333 Human333  12.06.2020 11:25

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика