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

291

386

Посмотреть ответы 2

Ответы на вопрос:

slavioglokolea77

Информатика

4,7(59 оценок)

Если о дновременно 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; begins: =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.