Предмет: Информатика,
автор: владюнефом
Дано слово s1.Получить слово s2, образованное нечетными буквами слова s1.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Химия,
автор: elimdar
Предмет: Қазақ тiлi,
автор: arsenjob2
Предмет: Математика,
автор: ayiarobloxxd
Предмет: Физика,
автор: катя57ру