Ответы
Ответ дал:
0
var
A, N, i, s: Integer;
begin
Write ('Начальное число = ');
ReadLn (A);
Write ('Количество чисел = ');
ReadLn (N);
s := 0; // здесь будем накапливать сумму
for i := 0 to N - 1 do begin // цикл по количеству чисел
if (A + i) mod 2 = 0 then // если число четное
s := s + A + i; // добавление этого числа к сумме
end;
WriteLn ('Сумма четных чисел = ', s);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад