Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gri6anja20021
08.08.2020 17:24 •
Информатика
Найти средне арифметическое чисел кратных 5 на промежутке от 50 до 100 и вывести их на экран по убыванию ( паскаль)
Показать ответ
Ответ:
nastyagosteva
02.10.2020 00:18
Var
i,k,d:Integer;
Begin
for i:=100 downto 50 do
if (i mod 5=0) then
begin
Writeln(i);
Inc(k);
d:=d+i;
end;
Writeln('Среднее арифметическое : ',d div k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
niknikiforov91
14.12.2022 23:55
Хотя б одну из двух, БРАТЦЫ:)ПАСКАЛЬ1) Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами...
divamurmyrlena
03.06.2022 21:33
За до слів якщо й то утвори логічні слідування.Мама купила на ринку овочі.і може зварити борщ.Настала весна.На деревах з явилися бруньки.Воду нагріти до 100 °С.Вона буде кипіти...
nikfdd
25.08.2020 22:44
1. Текст сохранен на диске объемом 16 Мбайт. Сколько страниц содержит текст, если на странице размещается 32 строки по 64 символа в каждой строке? 2. Созданный на компьютере текст...
AsiyaEkb
12.12.2020 06:25
Составить таблицу в ! дядя федор, кот матроскин и пес шарик летом жили в простоквашино, а папа с мамой слали им письма, посылки, телеграммы и бандероли, которые доставлял почтальон...
VladimirLK
07.05.2023 08:10
Общеобязательность и формальная определенность характерны для норм а)права б)морали в)религии г)этики...
Папич3
07.05.2023 08:10
1.какое событие произошло раньше других: провозглашение россии республикой возвращение в.и. ленина из эмиграции отречение от престола николая ii i всероссийский съезд советов 2....
zimnyayaдевочка
10.01.2022 04:15
Почему образовалось централизованое государство...
luciatarasova
10.01.2022 04:15
Переведите целое десятичное число 241 в двоичную систему счисления по схеме n10→n8→ n2...
sawbee
10.01.2022 04:15
Почему же страны центральной и восточной европы стремятся стать членами ес...
Искорка123456
10.01.2022 04:15
Сторона основания правильной четырехугольной призмы равна 12 см а длина бокового ребра равна 10 см. найдите: площадь боковой поверхности призмы площадь полной поверхности призмы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k,d:Integer;
Begin
for i:=100 downto 50 do
if (i mod 5=0) then
begin
Writeln(i);
Inc(k);
d:=d+i;
end;
Writeln('Среднее арифметическое : ',d div k);
end.