ответ ИИ На изображении представлен лист с заданием. Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова из этого текста, содержащие три буквы. Чтобы вывести на экран слова из текста, содержащие три буквы, можно использовать следующий алгоритм: Разделите строку на отдельные слова с помощью встроенного метода .split() . Проверьте длину каждого слова с помощью функции len() . Если длина слова равна 3, добавьте его в новый список. Выведите на экран каждое слово из списка, содержащего слова с тремя буквами, с помощью цикла for знаю хуйня, но может поможет
procedure TForm1.Button1Click(Sender: TObject);var WordStr, ResultStr: string;begin ResultStr := ''; for WordStr in Edit1.Text.Split([' ', '.']) do if Length(WordStr) = 3 then ResultStr := ResultStr + WordStr + ' '; Label1.Caption := 'Слова: ' + Trim(ResultStr);end; Код procedure TForm1.Button1Click(Sender: TObject);var WordStr, ResultStr: string;begin ResultStr := ''; for WordStr in Edit1.Text.Split([' ', '.']) do if Length(WordStr) = 3 then ResultStr := ResultStr + WordStr + ' '; Label1.Caption := 'Слова: ' + Trim(ResultStr);end;
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова из этого текста, содержащие три буквы. Текст поместить в Memo
procedure TForm1.Button1Click(Sender: TObject);var WordStr: string;begin Memo2.Lines.Clear; for WordStr in Memo1.Text.Split([' ', '.']) do if Length(WordStr) = 3 then Memo2.Lines.Add(WordStr);end; Код procedure TForm1.Button1Click(Sender: TObject);var WordStr: string;begin Memo2.Lines.Clear; for WordStr in Memo1.Text.Split([' ', '.']) do if Length(WordStr) = 3 then Memo2.Lines.Add(WordStr);end;