Помогите пожалуста 1.В последовательности чисел натуральных найти количество чисел...

Question

Помогите пожалуста
1.В последовательности чисел натуральных найти количество чисел кратных трем
2.В последовательности натуральных чисел найти четные числа заканчиваются на 4

Answer 1

1)
begin
  var a := ArrRandom(20, 1, 100);
  a.Println();
  writeln(a.Where(x -> x mod 3 = 0).Count);
end.

2)
begin
  var a := ArrRandom(20, 1, 100);
  a.Println();
  writeln(a.Where(x -> (x mod 2 = 0) and (x mod 10 = 4)));
end.

Comments

efer