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

Question

Информатика

Кушкилде

13 апреля, 06:24

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

+1

Ответы (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.