Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Moduev
19.12.2020 08:35 •
Информатика
Как найти сумму чисел кратных 7 от 1 до n включительно
Показать ответ
Ответ:
Murew
29.06.2020 14:00
Program gt;
var n,s,i:integer;
begin
read(N);
s:=0;
for i:=1 to n do
begin
if(i mod 7=0)then s:=s+i;
end;
writeln('сумма чисел кратных 7=',s);
end.
mod-это остаток от деления n на 7
если остаток равно 0 значит это число нацело делится на 7
0,0
(0 оценок)
Популярные вопросы: Информатика
DEAFKEV
08.09.2022 17:05
Вводится число n, а затем n чисел. подсчитайте, сколько среди данных n чисел нулей....
Fizruk115
17.03.2023 18:42
Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с четными значениями...
lagoshinanatal
11.11.2022 05:35
Информатика 8 класс В симфонический оркестр приняли на работу трёх музыкантов - Борисова,Сергеева и Васечкина, умеющих играть на скрипке, флейте, альте, кларнете, гобое и...
kerimbaevazarema03
30.04.2020 04:05
б)Подберите пару: 4000 бит = (4Кб, 500 байт, 4 байта) 0,5 Мб = (500 Гб, 512 Гб, 500 Кб, 512 Кб) 1 Кб = (1024 бита, 8192 бита, 1024 байта, 1024 Мб)...
Hapec
21.04.2022 02:49
1. Получить шестнадцатеричную форму внутреннего представления целого числа 2-х байтовой ячейки. 2. Получить шестнадцатеричную форму внутреннего представления целого числа...
malenkayakreyz
06.12.2021 09:28
с 3 и 4, Информатика 10 класс...
Учениклвл505
26.02.2020 14:56
Во а;readln(a);end;writeln(s);end.Какое число получится, есливвести ряд чисел 46, 12, 16, 66, 11,0?Введите правильный вариант ответа...
nastaluric
23.08.2022 09:13
Ниже приведена программа. Было проведено 10 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел вида (s, t): (3, 3); (3, 6);...
zhenyakrestins
12.04.2022 10:20
Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите...
Anutka15Love
15.08.2022 13:33
Как это сделать? 1. Напечатать предложенный текст. Нейрокомпьютер В 1937 г Норберт Винер собрал группу специалистов, которые обсуждали во породившие вскоре новую науку —...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,s,i:integer;
begin
read(N);
s:=0;
for i:=1 to n do
begin
if(i mod 7=0)then s:=s+i;
end;
writeln('сумма чисел кратных 7=',s);
end.
mod-это остаток от деления n на 7
если остаток равно 0 значит это число нацело делится на 7