С клавиатуры вводится 20 чисел. Найдите сумму тех из них, которые делятся ** 5 и ** 7....

Question

С клавиатуры вводится 20 чисел. Найдите сумму тех из них, которые делятся на 5 и на 7. Pascal ABC

Answer 1

"на 5 и на 7" - это значит, что число должно делится и на 5, и на 7?Если да, то:program sum;
  var a, b, i:integer;
begin;
  for i:=1 to 20 do begin;
    read(a);
    if (a mod 5 = 0) and (a mod 7 = 0) then b+=a;
  end;
  write(b);
end.Если нет, то замени "and" на "or".

Comments

Это означает, что эти числа от 0 до 20

---

Ой не работает. И так и сяк пробовал ничего не вышло

Answer 2

 // PascalABC.NET 3.3, сборка 1627 от 27.01.2018

// Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ReadArrInteger(20);

  var r:=mas.Where(t->(t mod 5=0) and (t mod 7 =0));

  Writeln('Summa=',r.Sum);

end.

---