Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7. Программа ввода- Pascalabc :9 класс.

Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7. Программа ввода- Pascalabc :9 класс.
Гость
Ответ(ы) на вопрос:
Гость
var i, s: integer; begin s:=0; for i:=1 to 50 do if (i mod 3 = 0) or (i mod 7 = 0) then inc(s, i); writeln(s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы