Горизонт

Разработайте программу для вывода информации о введенным пользователем числе: между какими числами оно находится и чему оно равно в удвоенном виде.

Внешний вид: Цвет формы зеленый, поле ввода — в середине формы, ниже в центре кнопка.
События: При нажатии на кнопку, обрабатывает число в поле ввода (X) и выводить между какими числами оно находится и чему оно равно в удвоенном виде.

Пример: X=100
“Число 100 находится между 99 и 101, а если удвоить, то получим 200”

procedure TForm1.Button1Click(Sender: TObject);

var

 s:string;

 name,old,city:string;

 age:integer;

begin

name:=Ename.Text;

old:=Eold.Text;

city:=Ecity.Text;

 

age:=2025-strtoint(old);

 

s:='Вас зовут '+name+', Вам '+old+' лет, вы живете в город '+city

+', вы родились в '+ inttostr(age)+' году.';

showmessage(s);

 

end;

сидим с бобром за столом😂😂😂

забаньте богдана

venom💯

🦌