Предмет: Информатика,
автор: puzanovzahar
рассмотрите n целых случайных чисел из интервала -240,240 подсчитать кол во положительных чисел кратных 6
Аноним:
с++?
Ответы
Автор ответа:
1
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -240, 240); a.Println;
Println('Количество подолжительных элементов, кратных 6:',
a.Where(t -> (t > 0) and (t mod 6 = 0)).Count)
end.
Приложения:
У Вас маленькая опечатка: числа, кратные 6
Да, мелкий шрифт, слилось/ Надо заменить 5 на 6, конечно.
Grimmy, вот что за нарушение ты отметил с объяснением "просьба"?
Модерация публично не обсуждается. Либо личка, либо жалоба Администратору ))
Похожие вопросы
Предмет: Алгебра,
автор: maselfix
Предмет: Геометрия,
автор: pingvinshick
Предмет: Другие предметы,
автор: jaksygunovakamilla
Предмет: Алгебра,
автор: kristisportvna