Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
hilola378
25.08.2022 09:21 •
Информатика
Паскаль.вводится ряд чисел, неизвестное кол-во, но конец ряда всегда ноль; найти количество чисел кратных пяти и больше пяти (одновременно)
Показать ответ
Ответ:
Sumiya666
08.10.2020 02:49
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t>5) and (t mod 5=0)).Count.Println
end.
Пример
13 -10 8 5 24 35 52 40 20 18 0
3
0,0
(0 оценок)
Популярные вопросы: Информатика
blurryfacegirl
09.03.2023 20:25
Заданной последовательности целых чисел определите сумму элементов кратных 10! пример вот именно под типо по такой же системе которую щас напишу! program maximum; i,n,max: integen;...
overlord14
18.01.2021 11:19
Переведите целые числа из десятичной системы счисления в двоичную а) 89 б) 600 в) 2010...
darusascop1415
10.07.2021 10:01
Укажите правильные варианты использования инструкции вывода данных print( z= +z) print( z= , z) print (a+b) print( a ) print( z= + z) print( z= , z) print( a= a)...
Soffa6110
29.05.2022 04:02
Определи основание числа 45710 информатика 8 класс...
LegoLAS09
12.04.2021 00:49
Синформатикой,. 1)дано два двузначных числа.определить сколько в них цифр 1 и 2? +блок-схема 2)дано 5 натуральных чисел.опрелелить сумму тех,которве заканчиваются на 3. 3)дано четырехзначное...
FinaSan
29.11.2021 17:38
С.п.алексеев биография для детей 4класса...
zakharskaoye07y
29.11.2021 17:38
Число a составляет 50% от числа b.сколько процентов число b составляет от числа a?...
09alan
29.11.2021 17:38
Решите 6 , кальций при обычных условиях вступает в реакцию с каж- дым из двух веществ : 1 ) кислород и бром 2 ) азот и углерод 3 ) оксид углерода ( ii ) и оксид азота ( iv 4 ) хлорид...
edvinmanovskij
29.11.2021 17:38
Сочинение по картине в.и.сурикова степан резин...
Tolik200611
29.11.2021 17:38
Вдве пробики налейте 1-2 мл концентрированного и разбавленного раствора серной кислоты. в первую пробирку с разбавленным раствором серной кислоты бросьте один кусочек железных стружек....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t>5) and (t mod 5=0)).Count.Println
end.
Пример
13 -10 8 5 24 35 52 40 20 18 0
3