Question

Створіть проєкт для обчислення суми n чисел, перше з яких дорівнює заданому числу, а кожне наступне на 20 більше за попереднє.

Побудуємо математичну модель для цієї задачі:

• вхідні дані: перше число (х), кількість чисел (n), число, на яке кожне наступне більше за попереднє, (20);

• кінцеві результати: сума цих чисел (s);

• формули: x = x + 20 – для обчислення наступного числа, s = s + x – для обчислення наступного значення суми.

1. Створіть проєкт з вікном розміру 400х300 пікселів.

2. Визначте, які компоненти потрібно розмістити на формі для введення вхідних даних і виведення результатів. Розмістіть їх на формі. Підпишіть їх. Створіть обробник події Click для кнопки. Збережіть проєкт у папці з іменем завдання 2.

Answer 1

Відповідь:

var

n, x, i, sum: integer;

begin

readln(n);

readln(x);

sum := 0;

for i:=1 to n do

begin

sum := sum + x;

x := x + 20;

end;

writeln(sum);

end.