дан массив из 30 целых положительных чисел. Подсчитать количество частей

дан массив из 30 целых положительных чисел. Подсчитать количество частей массива кратных 6 и не кончающихся на 4. Если таких элементов в массиве нет, то сказать Нет, ДАЮ 20 баллов

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(30,-99,99); a.Println;
  var k:=a.Where(t-gt;(t mod 6=0) and (t mod 10lt;gt;4)).Count;
  if k=0 then Writeln('Нет') else Writeln('Найдено частей: ',k)
end.

Пример
-32 -46 -99 97 63 40 -3 -89 31 -43 69 32 -66 -66 -59 98 -88 -41 -30 19 69 -83 -88 0 12 -87 -53 82 59 53
Найдено элементов: 5
Антонина Свитайло
Могу так же придраться и к вашей программке, сказав, что если этот вопрос посылал школьник и ему нужно позже показать программку учителю, то тогда у заключительного останутся вопросы по вашему варианту) я на данный момент про метод решения, не про правильность, так как паскалем не особо владею
Серж
1) в школе обычно выбирается конкретный язык программирования, по которому учат малышей, учитель не может распыляться на различные. 2) вопрос не в некомпетентности и не в корректности вашей программки, я говорю про способ решения. В школе изучаются условные конструкции, циклы и тд, потому такая форма записи может не удовлетворить учителя и тогда наша с вами помощь была бесполезной.
Кирюха Агоничев
3) я не знаю, как учат программировать в "довольно многих школах", но я говорю про свой собственный опыт в моей школе и про учебники с определенной учебной программе.
Oksana Badrieva
Программкой*
Гейнельт Нелли
Вы так классно оперируете информацией, я написал не только про свой собственный опыт, но и про учебные материалы, в том числе и в учебниках полякова, кстати) так же как и вы, могу сказать, что ваше познание об учебной программке в иных школах неполное хотя бы поэтому, что вряд ли у кого-нибудь есть информация по всем школам рф. Не "если в школе изучаются циклы", а точно они там изучаются.
Шаер Любовь
Про кривость питона могу сказать, что сужденья расходятся, и я, например, изучал и то, и другое в школе. сейчас слегка переходят на изучение питона в школах, желая Непременно "монополию" на это имеет паскаль, здесь без сомнения.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт