Паскаль (abc), составить полную рабочую программу используя delete
после того как с клавиатуры введут слово, нужно удалить у него последнюю из букв "т", если такая буква есть, если буквы нету, вывести "буквы т нету в данном слове"
после того как с клавиатуры введут слово, нужно удалить у него последнюю из букв "т", если такая буква есть, если буквы нету, вывести "буквы т нету в данном слове"
More Questions From This User See All
Answers & Comments
Verified answer
===== 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.