Question

Помогите пожалуйста!!!! Нужно написать программу в турбо паскале: удалите две последние буквы в введенном слове .

Answer 1

Var s:string;
begin
readln(s);
delete(s,length(s)-1,2);
writeln(s);
end.

Пример:
programma
program

Answer 2

Конечно, я могу помочь вам с этим заданием. Вот пример программы на Turbo Pascal, которая удаляет две последние буквы из введенного слова:

program RemoveLastTwoLetters;

var
  word: string;

begin
  writeln('Введите слово: ');
  readln(word);
  
  if length(word) >= 2 then
  begin
    delete(word, length(word) - 1, 2);
    writeln('Результат: ', word);
  end
  else
    writeln('Слово слишком короткое, чтобы удалить две последние буквы.');
end.

Эта программа запрашивает у пользователя слово, затем проверяет, достаточно ли длинное слово для удаления двух последних букв. Если да, то программа удаляет две последние буквы и выводит полученный результат.

Надеюсь, это поможет вам с вашим заданием!