1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт) 2. Для компонента Label1 свойство Caption пишем: Введите текст 3. Для компонента Label2 свойство Caption пишем: В тексте 4. Для компонента Edit1 свойство Text делаем пустым 5. Для компонента Button1 свойство Caption пишем: Вычислить 6. Должно получиться как на рис.1 7. Для Button1 пишем код: procedure TForm1.Button1Click(Sender: TObject); var n: integer; s: string; begin n:=length(Edit1.Text); label2.Caption:='В тексте '; if n>20 then n:=n mod 10; case n of 1:s:=' символ'; 2...

1. На форму из вкладки Standart выносим кнопки Button(3шт), Label(1шт) 2. Кликаем на Form1 и меняем свойство Caption на Светофор (даем название нашей форме) 3. Для компонента Button1 свойство Caption указываем Красный 4. Для компонента Button2 свойство Caption указываем Желтый 5. Для компонента Button3 свойство Caption указываем Зеленый 6. Для компонента Label1 свойство Caption стираем и оставляем пустым 7. Должно получиться как на рис...