Дана строка C определить какие буквы стоят на нечетных местах и вывести их

Question

Информатика

Сидки

17 декабря, 12:34

Дана строка C определить какие буквы стоят на нечетных местах и вывести их

+5

Ответы (1)

Знаете ответ на вопрос?

Мерфэйн · Answer 1

var s:string;

i:integer;

begin

write ('Введите строку: ') ;

readln (s) ;

write ('Нечётные символы: ') ;

for i:=1 to length (s) do

if i mod 2 0 then write (s[i],' ')

end.