Решите по инфе .дано слово,состоящее из чётного числа букв,вывести буквы,стоящие на чётных местах.

даша3171 даша3171    1   14.08.2019 15:40    1

Ответы
MilenaSmail12 MilenaSmail12  04.10.2020 19:03
Var s: string; i: byte;
begin
  write('Введите слово:   ');
  readln(s);
  writeln;
  i:=2;
  while i<=length(s) do begin
    write (s[i]); 
    i:=i+2
  end
end.


Введите слово:   Калифорния

аионя
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика