Question

Составить программу, нахождения произведения чисел делящихся на 7 в промежутке от а до в. (а и в запрашиваются с клавиатуры).

Answer 1

Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For B:= A to B do
    if B mod 7 = 0 then P:=P*B;
WriteLn('P = ',P);
End.