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

[alex_fcsm]

Особенно спросите правильно ли Вы поняли условие

[Filosofijka]

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

[alex_fcsm]

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

Я решила так
var A, B, i, sum: integer;{A- левая точка отрезка B - правая точка отрезка sum - сумма элементов}

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

sum:=0;
A=1 B=70
1. i=1 i mod 5<>0....
2. i=2 i mod 5<>0....
....
5. i=5 i mod 5=0 and i mod 13<>0
.....
65 i=65 i mod 5=0 and i mod 13 =0
sum:=0+65
70. i=70 i mod 5<>0....

[Sm1Le]

Очень часто преподаватели думают не правильно ... Это раз !
Номер два - это то что При решение данных задач очень часто исп. вспомогательный Массив для записи в них значений,а потом исп. ЕЩЕ ОДИН ЦИКЛ для того что просуммировать данные. Возможно она хочет что б вы зделали так ... не знаю но с Заданием(то что написано) вы справились !!!

[Filosofijka]

Ну, точно пойду завтра на разборку)) Еще раз спасибо!

[Sm1Le]

Возможно зделайте вывод всех елементов , а после вывод суммы ... =)) ТОгда доказывать легче будет ! =)

[Filosofijka]

это как, объясните, пожалуйста

[alex_fcsm]

var A, B, i, sum: integer;

begin
sum := 0;
read(A, B);
writeln;
for i := A to B do
 begin
 write(i,' ');
  if (i mod 5 = 0) and (i mod 13 = 0) then
    sum := sum + i;
 end;
writeln;
writeln('Summa ',sum);
end.

[Sm1Le]

Создайте массив! Место того как суммировать данные записуйте данные в массив. После того как прошли все значения, используя ЕЩЕ ОДИН ЦИКЛ, выведите все значения на экран (Write(Arr[i]) и паралельнос этим суммируйте просуммируйте элементы массива !

[Filosofijka]

Учительница согласилась признать свою ошибку, если я ей покажу завтра к ней блок-схему
Она верна?