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

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

Задать свой вопрос
1 ответ
1)
begin
  var a := ArrRandom(20, 1, 100);
  a.Println();
  writeln(a.Where(x -gt; x mod 3 = 0).Count);
end.

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



Арсений Берт
efer
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт