Дано слово s1.Получить слово s2, образованное нечетными буквами слова s1.
Дано слово s1.Получить слово s2, образованное нечетными буквами слова s1.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы