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

Question

Информатика

Лаута

10 декабря, 06:10

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

+4

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