Question

Ребят, помогите пожалуйста по информатике задачу
(13) Нужно составить программу в Паскале ABC.net

Answer 1

var a,k,i,x:integer;
begin
write('Введите количество чисел в последовательности: ');
readln (k);
for i:=1 to k do
begin
write('Введите число: ');
readln (a);
if (a mod 7 = 0) and (not(a mod 5 = 0)) then x:=x+1;
end;
writeln('Количество чисел кратных 7, но не кратных 5 равно: ',x)
end.

Answer 2

// PascalABC.NET 3.3

begin
  var n:=ReadInteger;
  var a:=ReadSeqInteger(n);
  print(a.Where(x->(x mod 7=0)and(x mod 5<>0)).Count);
end.

Пример:
5
35 70 45 9 105
0