[РЕШЕНО][Delphi] Найти сумму всех целых чисел, больших -50 и меньших 200, которые кратны 5 и 8 и заканчиваются на 5 и 0.

[Алан Т]

Найти сумму всех целых чисел, больших -50 и меньших 200, которые кратны 5 и 8 и заканчиваются на 5 и 0.

решение:
http://www.programmersforum.ru/showp...64&postcount=7

[Вадим Мошев]

Начинайте решать задачу, пишите код. Будут трудности, обращайтесь на форум, задавайте вопросы.

[digitalis]

тут "и" - в бытовом смысле, в математическом это звучало бы "кратны 5 или 8" "заканчиваются на 5 или на 0".
и когда задача уточнена, нужно попросить мальчика Петю из кружка юных программистов, чтобы нацарапал эти 5 строчек.

[Serge_Bliznykov]

а 0 кратен 5 и 8 ?

Сообщение от Алан Т

и заканчиваются на 5 и 0.

одновременно, заканчиваются на 5 и на 0 ?!
я таких чисел не знаю!

var i, cnt : integer;
begin
 cnt := 0;
 for i:=-51 to 199 do
  if (i mod 5 = 0) and (i mod 8 =0) then begin write(i:4); Inc(cnt); end;
  writeLn;
 writeLn(cnt)
end.

[digitalis]

Дык я и говорю: говорим И, подразумеваем ИЛИ .

 for i:=-49  ???

больших -50

[Serge_Bliznykov]

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

for i:=-49  ???

Да, Вы правы!!! конечно, -49 больше, чем -50
поэтому нужно вместо

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

for i:=-51 to 199 do

for i:=-49 to 199 do

ну и к слову, согласно формулировке задания, -50 и 200 в диапазон нужных чисел не входят.

[digitalis]

var i, tmp,sum : integer;
begin
 sum := 0;
 for i:=-49 to 199 do
  if ((i mod 5 = 0) or (i mod 8 =0)) then
     begin
//        tmp := i mod 10 ; 
 
    tmp := Abs (i mod 10) ;
    if (tmp=0) or (tmp=5) then sum := sum+i
     end ;
  writeLn;
 writeLn(sum)
end.

Уффф ( вытирая пот со лба ), свершилось...
Кстати, казалось бы - числа от 49 до 1 должны бы "аннигилировать" в сумме с симметричными им отрицательнвми, и можно было бы считать от 50 до 199? провел эксп. - хренушки! Странно... Будем думать.
Вот иногда наипростейшая задачка думать заставляет. Видимо, с непривычки

PS нашел. Можно, оказывается, от 50 до 199. Результат сходится. Ленивый студент, спасибо за интересную разминку

[Алан Т]

благодарю