6. Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения А и...

Question

6. Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения А и В вводятся с клавиатуры, предусмотреть случаи когда A<=B и A>B).

Answer 1

var a,b,i,s:integer;
begin
readln(a,b);
if a>b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (i>0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end.

Пример:
30 -10
s = 112