Question

Помогите пожалуйста с информатикой, 10 класс, паскаль

Answer 1

Программа:

Pascal:

var

 s, i, j: integer;

begin

 for i := 3672 to 9117 do begin

   if i mod 3 = 2 then

     if i mod 5 = 4 then begin

       inc(j);

       s := s + i;

     end;

 end;

 writeln(s);

end.

Рассматривается множество целых чисел, принадлежащих числовому отрезку [3672; 9117], которые удовлетворяют следующим условиям:

- остаток от деления от 3 равен 2;

- остаток от деления на 5 равен 4.

Найдите количество таких чисел и их сумму. Гарантируется, что искомая сумма не превосходит 10^7.