Отыскать сумму положительных целых чисел от -50 до 200, кратных 5

Если одновременно 5 и 8, то пишешь такую программу на Pascal

var s,i:longint;
begin
s:=0;
for i:=1 to 200 do
if (i mod 5=0)and(i mod 8=0) then s:=s+i;
writeln(s);
end.

И получаешь 600.

Если или 5, или 8, или и 5 и 8, то такая программа

var s,i:longint;
begin
s:=0;
for i:=1 to 200 do
if (i mod 5=0)or(i mod 8=0) then s:=s+i;
writeln(s);
end.

В ответе 6100.

Nikolaj Kolodcev 2019-07-12 10:25:19

ну да

Тимур Вольшанок 2019-07-12 10:28:24

Где-то стоит запрет на while?

Юля 2019-07-12 10:30:05

Эти задачки придумывают люди без фантазии и в надежде, что и решать их будут такие же...

Альбина Басавина 2019-07-12 10:37:26

Да, но собственно для меня понимание фора всегда было легче

Наташа 2019-07-12 10:45:08

Да и в данной задачки это особой роли не играет

Вадим Булдаковский 2019-07-12 10:46:36

Наилучшая программка - краткая и наглядная программка. Тогда её и проверить проще, и ошибок меньше.

Эмилия Волоукова 2019-07-12 10:47:47

Да, только по условию задачки i меняется от -50

Эвелина Цокурова 2019-07-12 10:53:41

Верно. Но надо быть лишенным мозга, чтобы посреди отрицательной доли спектра отыскивать положительные числа.

Кельбас Руслан 2019-07-12 11:02:57

))) Но школьнику надобно разъяснить почему избран такой диапазон

Светлана Шамшендинова 2019-07-12 11:10:08

Объяснит всегда полезно, согласен

О проекте

Отыскать сумму положительных целых чисел от -50 до 200, кратных 5

Добро пожаловать!