На интервале от a до b найти количество сумму и произведение чисел кратных 7 и 9 одновременно и вывести их на экран

Если число кратно одновременно 7 и 9, то оно кратно и произведению 7*9=63

var

a, b, m, k, s:integer;

p:real;

begin

Write ('Введите границы интервала: ') ; Read (a, b) ;

if a>b then begin

m:=a; a:=b; b:=m

end;

m:=a mod 63;

if m>0 then a:=a+63-m

else if m<0 then a:=a-m;

s:=0; p:=1; k:=0;

while a<=b do begin

s:=s+a; p:=p*a; k:=k+1;

a:=a+63

end;

Writeln ('На интервале для чисел, кратных 7 и 9 одновременно:') ;

Writeln ('Количество ', k,', сумма ', s,', произведение ', p)

end.

Пример

Введите границы интервала: 613 2100

На интервале для чисел, кратных 7 и 9 одновременно:

Количество 24, сумма 32508, произведение 3.65675480699261E+74