Помогите, пожалуйста! Использовать mod и div. Через ПАСКАЛЬ!!! Написать программу,...

Question

Помогите, пожалуйста!
Использовать mod и div.
Через ПАСКАЛЬ!!!
Написать программу, которая запрашивает у пользователя N целых чисел и выводит на экран сумму тех из них, которые кратны либо 5, либо 7, либо и 5 и 7 одновременно.
Не пользуй, пожалуйста: const, count.
Через Паскаль!

Answer 1

Uses crt;vara,b,n,k:integer;beginwrite ('Введите n-');read (n);for a:=1 to n dobeginreadln (b);if (b mod 5=0) or (b mod 7=0) then k:=k+b;end;writeln (k);end.