В паскале выдать ** экран все номера позиций , ** которых встречается буква "к"...

Question

В паскале выдать на экран все номера позиций , на которых встречается буква "к"
пожалуйста помогите))

Answer 1

Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
end.