@Anthony_1998

Как сделать, чтобы слова удалялись без ввода буквы? И у меня, если последнее слово начинается на одну и ту же букву, как это исправить в pascal abc?

Здравствуйте. Нужна помощь с задачей: Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины.
Как сделать, чтобы слова удалялись без ввода буквы? Это требование преподавателя.
И у меня, если последнее слово начинается на одну и ту же букву, как и остальные, оно удаляется, но остаётся последняя буква этого слова. Как это исправить?
Вот исходный код:
Program p1;
var
i:integer;
st:string;
s:char;
Begin
writeln('Введите строку st:');
readln(st);
write('Введите букву: ');
readln(s);
st:=' '+st;
repeat
i:=pos(' '+s,st);
inc(i);
if i<>1 then
repeat
delete(st,i,1);
until (st[i]=' ')or(i=length(st));
until i=1;
writeln('st=',st);
End.
  • Вопрос задан
  • 25 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
27 февр. 2020, в 16:58
3000 руб./за проект
27 февр. 2020, в 16:56
10000 руб./за проект
27 февр. 2020, в 16:35
10000 руб./за проект