Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
elizabetfox1222
07.01.2021 14:03 •
Информатика
Склавиатуры вводятся числа, пока не будет введено число, делящееся на 5. подсчитать количество и сумму тех, которые больше 10. паскаль
Ответ:
vanyushagrechk
05.10.2020 23:39
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqIntegerWhile(n->n mod 5<>0).Where(n->n>10).ToArray;
Writeln('n= ',a.Count,', S=',a.Sum)
end.
Пример
37 -18 42 57 24 9 17 20
n= 5, S=177
0,0
(0 оценок)
Популярные вопросы: Информатика
Фариза1111111
19.09.2022 03:46
Запишите if then else для решения : найти сумму s двух чисел m и n, если эти числа равны, в противном случае найти r -- разность m и n...
приветпрррррр20246р
15.07.2021 01:18
Для каких операций применяют дисковод?...
1234567891241
15.07.2021 01:18
:) в паскале: составить программу. ввести 2 числа. вычесть из большего меньшее....
samwwww
05.03.2022 14:07
Устно раскажите о действиях по созданию папки Почему нельзя создавать папки или файлы с одинаковым названием Как создаются новые файлы Создайте на рабочем столе новую папку и присвойте...
AlCapone025
24.11.2022 21:47
решить Что означает знак ~...
snezhanavasileozvjsv
09.04.2022 10:01
Открывается щелчком на раскрывающей кнопке (на ней изображён треугольник-стрелка) Адресная строкаСистемный значок Командная строкаРаскрывающийся список Может быть только 1 ответ ...
Маминбандит138
15.12.2021 18:42
Какой объем видеопамяти необходим для хранения четырех страниц изображения ,если битовая глубина равна 10,а разрещающая дисплея - 800 на 600 пикселей ?...
milanabzhityants
05.03.2022 12:18
С! here the adverbs but the letters are mixed up. write the correct variant: example: nlysudde -- suddenly 1. wlyslo 2. pphaily 3. silyea...
leralagbibl
05.03.2022 12:18
Скакими из перечисленных государств россия имеет сухопутную границу? ! ответ запишите в виде последовательности букв в алфавитном порядке. а) армения б) китай в) норвегия г) молдавия...
kolika2016
05.03.2022 12:18
Вспомни, что называется основной мыслью произведения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqIntegerWhile(n->n mod 5<>0).Where(n->n>10).ToArray;
Writeln('n= ',a.Count,', S=',a.Sum)
end.
Пример
37 -18 42 57 24 9 17 20
n= 5, S=177