Знайти суму першої та останньої цифр будь-якого цілого додатнього числа.

Задачі

В одній формі передбачити ввід елементів масиву в ListBox і вивід результату в інший ListBox. По кожному введеному користувачем елементу масиву знайти функцію y:=1+2*sqr(x); і занести результат в ListBox. Розв'язати задачу за допомогою циклу for.

Використовуються компоненти і встановлюються їх властивості

Компоненти	Властивості	Значення
Form1	Caption	Обробка одномірного масиву
Label1	Caption	Введіть
Label2	Caption	число елементів N=
Label3	Caption	Елемент A[i]=
Label4	Caption	Масив даних
Label5	Caption	Результат
Edit1	Text	пусто
Edit2	Text	пусто
Button1	Caption	Додати елемент в масив
Button2	Caption	Розв'язок
Button3	Caption	Вихід
ListBox1	-	-
ListBox2	-	-

Створення програми вимагає знання функцій і команд delphi:

• x, y : array [1..20] of Real; : ShortString змінні x, y будуть масивами з елементами типу Real, індекси елементів від 1 до 20
• StrToInt перетворює значення типу рядок в значення типу Integer
• StrToFloat перетворює значення типу рядок (що вміщує число) в значення типу Float
• FloatToStr перетворює значення типу Float в значення типу рядок
• Form1.ListBox1.Items.Add; додати до списку один елемент
• sqr піднесення в квадрат
• for i:=1 to n do цикл, в якому змінна і проходить значення від 1 до n включно (з кроком 1)
• Form1.ListBox1.Items.Strings[i-1] повертає значення i-1 -го елементу списку (елементи нумеруються від 0)