Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
MeXaHuK0
10.09.2022 00:44 •
Информатика
Паскаль. на интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.
Показать ответ
Ответ:
iragav30
01.10.2020 16:34
Var
k, i:integer;
SrAr:real;
begin
k:=0;
s:=0;
for i:=100 to 300 do
if i mod 10=0 then
begin
k:=k+1;
s:=s+i;
end;
SrAr:=s/k;
writeln(Sr:5:2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MrMixa008
07.06.2020 19:47
Написать программу на паскале. дан двумерный массив размером 5 * 5 элементы массива вводятся пользователем вручную. составьте программу определения индексов минимального...
yanarem1
30.04.2022 09:24
Подготовить сообщение по информатике! Передача информации между компьютерами.Беспроводная связь.Модем.Единицы измерения скорости передачи данных....
AnonimusuminonA
10.02.2022 13:35
Каковы важнейшие изобретениеи открытия древнего востока? какие из них используются и в наше время...
aidaAim
19.07.2021 14:04
Спо информатике (последовательность n 2 значение чисел вывести максимальное чётное число)...
StudPacker
29.07.2020 22:34
Решить : красная шапочка, мальвина, золушка и дюймовочка слепили 500 пельменей. красная шапочка слепила в 2 раза больше пельменей, чем дюймовочка, мальвина - столько, сколько...
TruckThorEast
29.07.2020 22:34
Ничтожный человек стремился к выгоде , а к . !...
Luiza3030499
29.07.2020 22:34
Сравнить обыкновенную дробь 7/12 и 8/9...
tiMYPkomptik
29.07.2020 22:34
Вмагазине было 280 кг пшена. за день продали две седьмых его части. поставь вопрос и реши...
nikolottorres
29.07.2020 22:34
Решите неравенство помните для верного решения, раставьте правильно ограничение...
otepovaaazan
29.07.2020 22:34
1) разность куба числа 3 и квадрата числа 5. 2) куб разности чисел 9 и 8. 3) квадрат суммы чисел 8 и 7. 4) сумма квадратов чисел 8 и 7. 5) разность кубов чисел 4 и 1....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k, i:integer;
SrAr:real;
begin
k:=0;
s:=0;
for i:=100 to 300 do
if i mod 10=0 then
begin
k:=k+1;
s:=s+i;
end;
SrAr:=s/k;
writeln(Sr:5:2);
end.