Question

найдите произведение натуральных чисел из промежутка от А до В,кратных 4. А и В вводятся с клавиатуры. Как решить данную задачу ?

 

Answer 1

var a,b,pro:int64;
begin
  pro:=1;
  readln(a, b);
  repeat
    if((a mod 4) =0) then pro:=pro*a;
    inc(a);
  until(a>b);
  writeln(pro);
  readln;
end.