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.