Найти сумму всех чисел из промежутка от А до В, кратных 8 и 16

[nickky2]

Найти сумму всех чисел из промежутка от А до В, кратных 8 и 16 (А и В вводятся с клавиатуры).

[alex_fcsm]

Посмотрите здесь http://programmersforum.ru/showthread.php?t=31446

[nickky2]

Я смотрела и сначала решила так же. Но нужно найти все числа на промежутке, кратные 8 и 16, а потом их сумма. условие немного не такое

прошу прощения, сама запуталась. сначала сумму всех чисел на промяжутке, а потом посмотреть которая сумма кратна 8 и 17. (не 16, а 17)

Есть кнопка правки сообщения. Прощается за незнанием, НО читаем правила. SupVis

[alex_fcsm]

Сообщение от nickky2

прошу прощения, сама запуталась. сначала сумму всех чисел на промежутке, а потом посмотреть которая сумма кратна 8 и 17. (не 16, а 17)

и в чем проблема?

var i,a,b,:integer;
     sum:real;
begin
readln(A,B);
sum:=0;
for i:=A to B do
 sum:=sum+i;
if (sum mod 8=0)and(sum mod 17=0) then writeln('Yes')
   else writeln('No');
end.

[nickky2]

в общем объясняю, как мне рассказывал учитель. К примеру берем промежуток от 60 до 67. и тут начинется... 60+60=120, 60 +62=122...и так до 60+67. Потом 61+61=...61+63=... должны быть несколько циклов

[alex_fcsm]

И нужно проверять эти суммы делятся ли они на 8 и 17?

uses crt;
var i,j,a,b,sum:integer;
begin
readln(a,b);
sum:=0;
for i:=a to b do
 for j:=i to b do
  begin
  sum:=i+j;
  if (sum mod 8=0) and (sum mod 17 =0) then writeln(i,'+',j,'=',sum);
  end;
end.

[nickky2]

а почему программа не идет?

[off] Поражаюсь терпеливости и энтузиазму alex_fcsm, за что ему огромное человеческое спасибо и безмерное уважение [/off] SupVis

[alex_fcsm]

Какая ошибка?
Просто скопируйте из браузера

[nickky2]

все верно, спасибо. действительно, спасибо, что помогли!