Программа:
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;
writeln(s);
end.
Рассматривается множество целых чисел, принадлежащих числовому отрезку [3672; 9117], которые удовлетворяют следующим условиям:
- остаток от деления от 3 равен 2;
- остаток от деления на 5 равен 4.
Найдите количество таких чисел и их сумму. Гарантируется, что искомая сумма не превосходит 10^7.
Программа:
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.