Question

Икт - ! 35 ! мы начали проходить тему - циклы. : вводятся 2 числа a и b (b> a). посчитать сумму квадратов четных чисел от a до b.

Answer 1

Var
a, b, i: integer;
s: longint;
begin
readln(a);
readln(b);
s:=0;
for i:=a to b do
if i mod 2 = 0 then
inc(s, i*i);
writeln(s);
end.

Answer 2

Var a,b,s : Integer;
Begin
  Readln(a,b);
  s:=0;
  If Odd(a) then Inc(a);
  While a<=b do
  Begin
   s:=s+sqr(a);
   Inc(a,2);
  end;
  Writeln('Result: ',s);
end.