Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Персик1лайм
13.09.2020 20:16 •
Информатика
Написать программу, которая найдет сумму чисел, кратных 5 на интервале от 8 до 80
Показать ответ
Ответ:
agroDan
28.12.2020 18:30
var i, s: integer;
begin
s := 0;
for i := 8 to 80 do
if i mod 5 = 0 then
s := s + i;
write(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Love2111
23.11.2020 18:58
Части картинки нарисованы с инструментов: эллипс, прямоугольник, линия, а затем раскрашены.построй дерево структуры рисунка. листья дерева-фигуры, которые можно нарисовать...
Какашка54321
24.04.2023 23:58
Составьте программу, которая определяет к какой группе относится введенный символ (с) – к цифрам, заглавным или прописным буквам. на экран должна выводиться фраза «символ...
angelina436
26.10.2022 08:13
Вычислить значения функции y=x^2*e^x для x(принадлежит) [0,1; 1,1],h=0,05. табулирование функции...
Anna977497
07.08.2021 13:39
Эргономниканын максаты не...
GizaHelinc
23.09.2022 00:25
Ен алгашкы есептеу куралынын атауларын тап...
jkuf80
07.09.2021 10:57
В чем отличие установки нового программного обеспечения и обновлений вручную и установки или обновлений программного обеспечения из загруженного файла? Перечислите обновления...
dzharullaev2015
19.09.2020 02:37
1.умножь на 3 2.вычти 5 первая из них увеличивает число на экране в 3 раза , вторая уменьшает его на 5 . составьте алгоритм получения из числа 14 числа 31 , содержащий...
Влад200619
16.11.2022 16:09
1. Даны катеты А и В прямоугольного треугольника. Создать программу на паскаль, которая вычисляет Гипотенузу, Площадь, Периметр данного треугольника. 2. Дан радиус R...
лизя5ррр
18.02.2020 00:32
4). Разработайте правила борьбы с кибербуллингом. По каждому пункту правил приведите примеры. Оформите работу в виде таблицы «Правила борьбы с кибербуллингом»...
Физик5765
27.09.2021 04:17
СОР ПО ИНФОРМАТИКЕ НАДО СДЕЛАТЬ ДО ЗАВТРА ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i, s: integer;
begin
s := 0;
for i := 8 to 80 do
if i mod 5 = 0 then
s := s + i;
write(s)
end.