Дано предложение. Вывести "столбиком" все его буквы н, стоящие ** нечетных местах. паскаль

Question

Дано предложение. Вывести "столбиком" все его буквы н, стоящие на нечетных местах.
паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Range(1,s.Length,2).Select(i->s[i]).Where(c->LowCase(c)='н').PrintLines
end.

Пример
Нелли нечаянно надорвала наволочку и Нестор немного нахмурился
Н
н
н
н
н

Answer 2

Var
i:integer;
n:boolean;
str:string;
begin
readln(str);
n:=false;
for i:=1 to length(str) do begin
   if (i mod 2 <> 0) and (str[i] = 'н') then begin
   writeln('Буква н ', 'стоит на месте ', i); n:=true; end; end;
   if n = false then
   writeln('Букв "н", стоящих на нечетных местах, в предложении не обнаружено!');
end.