Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Znanija111tHtn
04.01.2021 00:58 •
Информатика
Найти сумму чисел кратных 5 от 1 до n.
Ответ:
Фокс890
01.10.2020 16:51
Program chik;
var s,i,n:integer;
begin
readln(N);
s:=0;
for i:=1 to n do
if(i mod 5=0)then s:=s+i;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
skidan2002
23.12.2022 23:55
2.Черепашке был дан для исполнения следующий алгоритм: Повтори 7 [Вперёд 70 Направо 120]. Какая фигура появится на экране?...
2004by2013
17.05.2021 12:13
Черепашке был дан для исполнения следующий алгоритм: Повтори 12 [Вперёд 50 Направо 60]. Какая фигура появится на экране?...
v1tek2692
28.09.2020 16:32
МНОЖЕСТВА. РЕШЕНИЕ ЗАДАЧ (2 множества) №1 Дано: Культура – 2900 страниц История – 1900 страниц Культура |История – 4400 страниц Культура & История - ? страниц №2...
Никита20071910
24.06.2022 18:33
Дан фрагмент программы, который в массиве из 10 случайных целых чисел от 1 до 100 находит элемент с максимальным значением. Если таких элементов несколько, то программа...
alinashutkina12345
10.12.2021 22:25
Какие возможности предоставляет текстовый редактор...
AdamAndEva
30.05.2022 12:04
Напишите следующие высказывания в виде логических выражений. 1. Если компьютер включен, то можно на нем работать. 2. Катя любит писать сочинения или решать задачи....
Амиiskdhdm
13.03.2023 21:30
Выбери верный ответ. (может быть несколько вариантов ответа) P∨(F∧N)=P∨F∨N B∨(F∨N)=B∨F∨N S&(F&N)=S&F&N...
Est19xx1
04.11.2021 03:07
Отвечаем на вопросы 1. Что такое оглавление?2. Какую команду нужно выполнить, чтобы добавить оглавление?3. Как обновить оглавление?4. Как удалить оглавление?5 Как отметить...
MarinaSc1
29.03.2022 08:48
Какие программы, бесплатно предлагаемые разработчиками, служат для рекламы? 1) Коммерческие программы 2) Условно бесплатные программы 3) Бесплатные программы...
ипоопан
29.08.2022 20:34
Представителей каких профессий могут заменить робо- будущем? Найди информацию в Интернете и напиши...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var s,i,n:integer;
begin
readln(N);
s:=0;
for i:=1 to n do
if(i mod 5=0)then s:=s+i;
writeln(s);
end.