Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Зефирка78
01.03.2020 17:01 •
Информатика
Найти сумму всех натуральных чисел, четных, кратных 7 и меньших 100.
Показать ответ
Ответ:
4553234
02.10.2020 05:10
Var
i,s:integer;
begin
for i:=1 to 100 do
if (i mod 7 =0) and (i mod 2 =0) then
s:=s+i;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tanyalepihina2
23.03.2021 09:46
В пайтоне Составить программу, которая бы проводила расчет функции y, зависящей от x и k, выводила бы значение y. Используйте модуль math...
кирилл2127
22.09.2020 13:21
1.Термин мультимедиа дословно означает .2.Термин мультимедиа трактуется как объединение текста, , и видео.3.Характерной особенностью мультимедийных продуктов является наличие...
Адриана1111111
09.12.2021 23:10
Прикладом текстового повiдомлення може слугувати? А) Iлюстрацiя в книзi Б) Музичний твiр В) Жест регулювальника Г) Вiрш та збiркидо ть будь ласка...
колдун3
19.09.2020 12:28
Напишите рекомендательную систему для нового сервиса Bookflix, подбирающего книги для пользователя. Сервис хранит все прочитанные пользователем книги и по его за Посоветуй мне...
Katukina
30.09.2020 03:38
Что может являться условием в цикле?...
menyaylo56
27.11.2022 04:43
Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может добавить в одну...
neumnaya4044
16.08.2022 13:29
1.Малюнки, картинки, схеми, графіка, карти, фотографії — це прикладиA) Графічних повідомленьБ) Текстових повідомленьГВ) ВідеоповідомленьГ) Звукових повідомлень...
Dva4evsky
09.06.2023 00:05
Определить значение переменной k после выполнения программы никак не могу найти ответ....
чичекадиль
18.04.2020 17:57
Метод дихотомии. Найти решение уравнение на промежутке[-4; -3] с точность 0.01 Ур-ие: f(x)=(-1)*x^2+(-2)*x+6...
daeinam095
11.10.2022 09:25
Необходимо нарисовать 30 одинаковых вертикальных палочек. Дан алгоритм. Выбери верный ответ.использовать Чертежникалг черточки11начсместиться в точку (-4,3)нц разопустить перосместиться...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,s:integer;
begin
for i:=1 to 100 do
if (i mod 7 =0) and (i mod 2 =0) then
s:=s+i;
writeln(s);
end.