Я-юрист, есть задача - Найти сумму всех чисел из промежутка от А до В, кратные 13 и 5

[Filosofijka]

ПОЖАЛУЙСТА!!! помогите решить задачу: Найти сумму всех чисел из промежутка от А до В, кратные 13 и 5. ( А и В вводятся с клавиатуры).
ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО!!!

[Greblin]

И 13, и 5? тогда так:

program sum135;

var A, B, i, sum: integer;

begin
sum := 0;
read(A, B);
for i := A to B do
  if (i mod 5 = 0) and (i mod 13 = 0) then
    sum := sum + i;
writeln(sum);
end.

если или 13, или 5 то надо and заменить на or