Question

Знайдіть суму п'яти чисел, перше з яких дорівнює 7, а кожне наступне на 3 більше від попереднього. На екран виведіть суму
Задача 2. Обчисліть суму n чисел, перше з яких дорівнює х, а кожне наступне на 5 більше від попереднього. Значення n, х вводити з клавіатури. Суму вивести на екран( для некоторых особ, говорю, помочь с 2 задачами, а не с одной, и желательно в ПАСКАЛЬ, спасибо!

Answer 1

Задача 1

program SumOfFiveNumbers;

var

first_number, last_number, sum: Integer;

begin

first_number := 7;

last_number := first_number + 4 * 3; { 4 - кількість кроків між першим і п'ятим числом (5 - 1) }

sum := (5 * (first_number + last_number)) div 2;

WriteLn('Сума п`яти чисел: ', sum);

end.

Задача 2

program SumOfNumbers;

var

n, x, i, last_number, sum: Integer;

begin

Write('Введіть значення n: ');

ReadLn(n);

Write('Введіть значення x: ');

ReadLn(x);

last_number := x + (n - 1) * 5;

sum := (n * (x + last_number)) div 2;

WriteLn('Сума чисел: ', sum);

end.