Помогите найти ошибку в задаче

[Filosofijka]

Она сказала, что программа не сумму считает, а просто проверяет каждое число. Нратно оно 5 и 13 ли не кратно

[alex_fcsm]

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

Я решила так
var A, B, i, sum: integer;

begin
sum := 0;
read(A, B);
for i := A to B do
if (i mod 5 = 0) and (i mod 13 = 0) then sum := sum + i;
writeln(sum);
end.
Но мне сказали, что это неверное решение. Нужны несколько циклов одном. Всё, все мои познания иссякли

Это программа считает сумму чисел из промежутка от A до B, которые кратны 5 и 13

[Filosofijka]

Тогда я не понимаю, за что мне поставили 3 ку.

[Filosofijka]

sum := sum + i
она придралась к этому и говорит, что вычисляется не сумма.
что тогда это действие значит?

[alex_fcsm]

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

sum := sum + i
она придралась к этому и говорит, что вычисляется не сумма.
что тогда это действие значит?

Запустите и посмотрите пошагово если не верите. Кстати Вы уверены что задание звучало так как Вы его сформулировали? Почитайте повнимательнее может что не так

[Filosofijka]

все верно! все числа кратные 5 и 13 на промежутке от А до В суммируются

[alex_fcsm]

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

все верно! все числа кратные 5 и 13 на промежутке от А до В суммируются

Единственное в чем может быть недопонимание если вместо

if (i mod 5 = 0) and (i mod 13 = 0)

нужно было

if (i mod 5 = 0) or (i mod 13 = 0)

А как преподаватель определил что неправильно? Вы запускали программу или она только код посмотрела?

[Filosofijka]

Я запустила, она мельком посмотрела и стала разбирать код. "почему у меня один цикл?" и сказала, что вычисляется не сумма

[alex_fcsm]

Вы же сами убедились, что работает(считает сумму). Добевайтесь у преподавателя что не так

[Filosofijka]

спасибо большое, завтра к ней подойду!!!