Войти
Регистрация
Спроси ai-bota
alenashumaher
09.11.2020 13:06
Паскаль массив составить программу имеется массив в11 из целых чисел. найти количество элементов массива, больших числа 2 и кратных 3
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
BlaSta
10.12.2020 18:12
Составить алгоритм и программу для вывода первых членов арифметической прогрессии с основанием а и разницей d....
troll28
06.05.2023 17:56
Напишите процедуру, которая сокращает дробь вида m/n. числитель и знаменатель дроби как изменяемые параметры. пример: введите числитель и знаменатель дроби: 25 15 после сокращения:...
Доринэ
06.05.2023 17:56
Разгадайте кроссворд информационное моделирование 1.информационные модели в которых одновременно используются и образные и знаковые элементы. 3.модели представляемые в форме текста...
larjon
06.05.2023 17:56
Скорость передачи данных через adsl-соединение равна 256 000 бит\с. через данное соединение файл размером 3.5 мбайт. определите время передачи файла в секундах....
sasha7070
10.01.2023 21:39
Уважаемые знатоки, внимание, вопрос)) дано логическое выражение, зависящее от 5 логических переменных: z1 /\ ¬z2 /\ ¬z3 /\ ¬z4 /\ z5 сколько существует различных наборов значений...
Sashonmillioner
03.02.2020 15:50
На территории Казахстана расположено много исторических мест. Создай альбом из 4 фотографий исторических памятников, расположенных в стране....
tania130
17.09.2022 10:27
Що не можна робити з графічними об єктами?...
Mariniko3679
01.10.2021 03:57
На delphi: 1. даны два целых числа a и b (a b). вывести в порядке возрастания все целые числа, расположенные между a и b (включая сами числа a и b), а также количество n этих чисел....
ebusuruna
01.10.2021 03:57
Процедура целочисленного деления двух целых чисел (входные параметры: a,b- числа; выходной параметр- целое частное a/b). функция целочисленного деления двух целых чисел (выходные...
прост1232
29.01.2021 11:05
Сколько бит информации содержит сообщение объёмом 17 кбайт? в ответе укажите одно число....
Ответ:
YTTeamGardnYT
04.10.2020 15:28
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(11,-50,50); b.Println;
Writeln('k=',b.Where(x->(x>2) and (x mod 3=0)).Count)
end.
Пример
2 -10 -31 39 18 -35 -24 -22 4 -31 30
k=3
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота