@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.
  • Вопрос задан
  • 19 просмотров
Пригласить эксперта
Ответы на вопрос 1
@Anthony_1998 Автор вопроса
Тут я уже разобрался сам.
Ответ написан
Ваш ответ на вопрос

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

Войти через центр авторизации
Похожие вопросы
Insigne Волгоград
от 50 000 до 100 000 руб.
Индекс.СРО Ростов-на-Дону
от 45 000 до 70 000 руб.
16 июн. 2019, в 19:42
500 руб./за проект
16 июн. 2019, в 18:38
5000 руб./за проект
16 июн. 2019, в 17:14
5000 руб./за проект