Вопрос по информатике:
Программа загадывает 35 случайных чисел из промежутка[50;350]и подсчитывает сколько из них являются кратными 3,но не заканчивающихся цифрой 2.
Paskal.
- 13.04.2018 12:56
- Информатика
- remove_red_eye 8829
- thumb_up 17
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(35,50,350); a.Println;
Writeln('k=',a.Where(x->(x mod 3=0) and (x mod 102)).Count)
end.
Тестовое решение:
74 243 74 138 215 124 247 255 112 171 71 246 216 346 125 318 251 312 217 58 146 150 202 279 75 121 210 297 129 280 122 234 185 296 307
k=14
- 14.04.2018 16:03
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.