Найти сумму N чисел натурального ряда кратных 4, начиная с K>0, N>0, N и K вводятся с клавиатуры.Написать программы на паскале по 3-м циклам.

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Pascal:

program SumOfMultiples;
var
N, K, i, number, sum: integer;
begin
writeln('Введите количество чисел N:');
readln(N);
writeln('Введите значение K:');
readln(K);
sum := 0;
number := K;
for i := 1 to N do
begin
sum := sum + number;
number := number + 4;
end;
writeln('Сумма первых ', N, ' чисел натурального ряда кратных 4, начиная с ', K, ' равна ', sum);
end.

Пользователь сначала вводит количество чисел N и значение K, затем программа вычисляет сумму N чисел натурального ряда кратных 4, начиная с K, и выводит результат на экран.