В первой строке дано слово из маленьких английских букв. Во второй строке задана буква. Если этой буквы нет в слове, выведите −1, а если есть — номер самой правой позиции в слове, где стоит такая буква. Позиции нумеруются с единицы слева направо.
пример ввода пример вывода
steppe 6
e
пример ввода пример вывода
boat -1
r
пример ввода пример вывода
steppe 6
e
пример ввода пример вывода
boat -1
r
Ответ
1/5
(3 оценки)
2
Мозг
Отвечающий
var txt1, txt2:string;
count, i:integer;
begin
count:=-1;
write('Введите слово: ');
readln(txt1);
writeln('Местоположение какой буквы в слове "', txt1, '" необходимо вернуть?') ;
readln(txt2);
for i:=1 to txt1.length do
if (txt1[i] = txt2) and (count=-1) then
begin
count := i;
end;
write('Буква ', txt2, ' в строке "', txt1,'" имеет местоположение: ', count) ;
end.