Нeктo имеет 12 пинт мёда и хочет отлить из этого количества половину, но у него нет сосуда вместимостью вб пинт. У него два сосуда: один — вместимостью в 8 пинт, а другой
— вместимостью в 5 пинт. каким образом налить 6 пинт мёда в сосуд на 8 пинт?
У химика есть нерастворимая колба, в которой содержится 12 миллилитров серной
кислоты, а также две нерастворимые мензурки объемом 5 и 7 миллилитров. Как ему
получить две порции по б миллилитров серной кислоты, необходимых для опыта?
(Кислота растворит любую другую посуду в лаборатории..)
Хозяйка в продолжении поста накопила два горшка масла: один в 8 фунтов, другой в 3
фунта, а третий горшок в 5 фунтов остался у неё пустым. Перед праздником хозяйке
понадобилось одолжить 6 фунтов масла соседке. Как она это сделала, если меркой могли
служить только те же три горшка?
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле
procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.