Question

Паскаль (abc), составить полную рабочую программу используя delete
после того как с клавиатуры введут слово, нужно удалить у него последнюю из букв "т", если такая буква есть, если буквы нету, вывести "буквы т нету в данном слове"

Answer 1

===== PascalABC.NET =====

begin

 var s := ReadString;

 var i := s.LastIndexOf('т');

 if i < 0 then

   Print('Буквы "т" нет в данном слове')

 else

 begin

   Delete(s, i + 1, 1);

   Print(s)

 end

end.