Написать формулы для написания линейных программ Turbo Paskal : Найти сумму 1-ых n-членов арифметической прогрессии, если 2-ой элемент=5 а 4-ый=6
Написать формулы для написания линейных программ Turbo Paskal : Найти сумму 1-ых n-членов арифметической прогрессии, если 2-ой элемент=5 а 4-ый=6
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfFirstN;
var
n, a1, a2, an, sum: integer;
begin
writeln('Enter the value of n:');
readln(n);
writeln('Enter the value of the second element:');
readln(a2);
writeln('Enter the value of the fourth element:');
readln(a1);
a1 := a2 + 2 * (a2 - a1);
sum := n * (a1 + a2) div 2;
writeln('The sum of the first ', n, ' terms of the arithmetic progression is ', sum);
end.