Question

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

Answer 1

Если число кратно одновременно 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