Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
базарганово
06.12.2021 18:24 •
Информатика
Составить программу в паскале которая ,находит среднее арифметическое натуральных чисел, меньших 200 и кратных 7.
Показать ответ
Ответ:
Litel1
15.10.2020 11:00
begin
Range(7, 200, 7).Average().Print();
end.
//PascalABC.NET 3.5.X
0,0
(0 оценок)
Ответ:
tema3331
15.10.2020 11:00
begin(1..199).Where(x -> x mod 7 = 0).Average.Printend.
или
var i,s,n: integer;beginwhile i+7<200 dobegini := i + 7;s := s + i;n := n + 1;end;write(s/n);end.
Пример работы:
0,0
(0 оценок)
Популярные вопросы: Информатика
Ррррр5о
10.11.2021 00:56
Где записываются единицы измерения, общие для всей таблицы?...
IvanNesterenok
27.01.2021 12:56
Условное обозначение диска с контактами...
alievarena81
01.11.2021 02:23
Как можно ещё доработать программу робота часовой...
zhan1205
21.04.2023 17:12
1. Напишите определение условного оператора (1б). 2. And, or и not - это ... операторы (1б). 3. Алгоритмическая запись условного оператора имеет 2 формы записи. Какие?(1б)...
polinamalina2004
02.02.2020 03:19
Укажіть вид подання об єктів який у вікні програми Провідник операційної системи Windows дає змогу переглянути графічні зображення що зберігаються у файлах a.ескізиб.таблицяв.значкиг.список...
Tan13Nanika
14.11.2020 00:22
Скажите что нужно делать? Не получается зайти на сервер ...
liqwer
13.02.2020 15:50
У якіх системах виконано розрахунки? 2 * 2 = 112 * 3 = 103 * 3 = 11...
сартоваа
21.04.2020 02:39
дано лінійну таблицю,що містить N випадкових цілих чисел від 10 до 35,а також ціле число K .Знайти середнє арифметичне всіх елементів таблиці,крім елемента...
tryx1
31.01.2022 15:14
Уровень B. Напишите программу, которая получает день и номер месяца и определяет дату следующего дня. Считайте, что год невисокосный (365 дней). Пример: Введите день...
ellaakobyan
11.08.2022 17:23
Создайте следующие подпроекты с оператора проверки состояния....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Range(7, 200, 7).Average().Print();
end.
//PascalABC.NET 3.5.X
или
var i,s,n: integer;beginwhile i+7<200 dobegini := i + 7;s := s + i;n := n + 1;end;write(s/n);end.Пример работы: