Question

Рассматривается множество целых чисел, принадлежащих числовому отрезку [3672; 9117], которые удовлетворяют следующим условиям:
- остаток от деления на 3 равен 2;
- остаток от деления на 5 равен 4.
Найдите количество таких чисел и их сумму. Гарантируется, что искомая сумма не превосходит 10⁷(ответ запишите через пробел)

Answer 1

const

 low = 3672;

 high = 9117;

var sum, count:integer;

begin

 sum:=0;

 count:=0;

 for var i:=low to high do

 begin

   if ((i mod 3 = 2) and (i mod 5 = 4)) then

   begin

     inc(count);

     sum:=sum + i;

   end;

 end;

 write(count, ' ', sum);

end.