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.
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
Range(1,s.Length,2).Select(i->s[i]).Where(c->LowCase(c)='н').PrintLines
end.
Пример
Нелли нечаянно надорвала наволочку и Нестор немного нахмурился
Н
н
н
н
н
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.