Question

В первой строке дано слово из маленьких английских букв. Во второй строке задана буква. Если этой буквы нет в слове, выведите −1, а если есть — номер самой правой позиции в слове, где стоит такая буква. Позиции нумеруются с единицы слева направо.

пример ввода пример вывода
steppe 6
e

пример ввода пример вывода
boat -1
r

Answer 1

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.