Помогите пожалуйста написать программу! Найти сумму чётных чисел в интервале от А до В (...

Question

Помогите пожалуйста написать программу!
Найти сумму чётных чисел в интервале от А до В ( А и В - натуральные числа, А< В).

Comments

ДА уж....два решения - и оба с алгоритмом, за какой я студентам в свое время безапелляционно ставил "неуды". Ну зачем, когда просят пройти по четным числам, идти по всем подряд и проверять каждое на чет/нечет? Неужели сложно найти первое четное и пройти интервал с шагом два без всяких проверок?

---

Поневоле вспомнился Я.Гашек: "...Скажи-ка лучше, как бы ты поступил, если б тебе нужно было запереть десять вольноперов? ... Запер бы двадцать, а десять бы выпустил..." (с)

---

А если четные подряд: 1 2 4 7 9 9 6 6 6 6 5

---

Стоп.... как это "четные подряд"? Рассматривается ряд натуральных чисел в интервале [a,b], а не элементы какого-то массива.

---

В ИНТЕРВАЛЕ, но не в МАССИВЕ. Ну чем не интервал: a=4, следующее 5, далее 6, 6, 7, 9, 10, 10, 10, 10 и, наконец, b=11???

Answer 1

uses Crt;
 var a, b, temp, i, S:integer;
 begin
 ClrScr;

 Write (' a = ');   ReadLn(a);
 Write (' b = ');   ReadLn(b);
 S:=0;
 i:=a;
 while i<=b do<br>   begin
     if (i mod 2 = 0) then S:=S+i;
     i:=i+1;
   end;
 WriteLn(' S = ', S);
 ReadLn;
 end.

Answer 2

Var a,b,i,sum: integer; 
begin 

write ('Введите границы интервала: ');

read (a,b); 

for i:= a to b do 

if i mod 2 = 0 then sum:=sum + i;

writeln ('Сумма четных чисел в интервале от А до Б = ',sum);

end.