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.

Answer 2

Вот полная рабочая программа на языке Pascal (abc), которая выполняет указанные действия:

pascalCopy code
program DeleteLastT;

var
  word: string;

begin
  writeln('Введите слово: ');
  readln(word);

  if Pos('т', word) > 0 then
  begin
    Delete(word, Length(word), 1);
    writeln('Результат: ', word);
  end
  else
    writeln('Буквы ''т'' нету в данном слове');
end.

Пользователю будет предложено ввести слово с клавиатуры. Затем программа проверяет наличие буквы 'т' в слове, используя функцию Pos(). Если буква 'т' найдена, она удаляется с помощью процедуры Delete(). В противном случае выводится сообщение о том, что буквы 'т' нет в данном слове.