Flower
Дано предложение. Определить порядковый номер первой встречной буквы 'к'.Если такой буквы нет, сообщить об этом.
Дано предложение. Определить порядковый номер первой встречной буквы 'к'.Если такой буквы нет, сообщить об этом.
Дано предложение. Определить порядковый номер первой встречной буквы 'к'.Если такой буквы нет, сообщить об этом.
Var
Nk, i : integer;
Sent : string[100];
Begin
readln(Sent);
Nk:=0;
for i:= 1 to 100 do
if Sent = 'к' then
begin Nk:=i; break; end;
if Nk=0 then writeln('Буква к отсутствует') else writeln(первая буква к имеет номер ', Nk);
End.