Напишите программу на Паскале: удалите все слова, начинающиеся и заканчивающиеся на одну и ту же букву. (Напишите комментарий, что означает каждая переменная.)

Пример программы на Паскале:

program DeleteWords;
var
s: string; {исходная строка}
word: string; {текущее слово}
result: string; {строка после удаления слов}
i: integer; {номер текущего символа в строке}
len: integer; {длина текущего слова}
begin
writeln('Введите строку:');
readln(s);

s := s + ' ';
word := '';
result := '';

for i := 1 to length(s) do
begin
if s[i] <> ' ' then
word := word + s[i]
else
begin
if word <> '' then
begin
len := length(word);
if word[1] <> word[len] then
result := result + word + ' ';
word := '';
end;
end;
end;

writeln('Результат: ', result);
end.

Программа просматривает строку по символам, собирает слова и проверяет первое и последнее значение каждого слова. Если они разные, слово остаётся. Если одинаковые, слово удаляется.

0 0 Пожаловаться