Дано слово 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
