Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.