Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
annaps4
17.09.2020 04:00 •
Информатика
Найти сумму положительных кратных 7 чисел,меньших 100.
Показать ответ
Ответ:
myatlick
19.07.2020 21:19
Uses crt;
var i,s:integer;
begin clrscr;
s:=0; i:=7;
while i<100 do
begin
s:=s+i;
i:=i+7
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
далекоотсолнца
24.12.2022 15:47
4. При заполнении в базу данных номера сотового телефона Яковлев Д.Р. возникло сообщение об ошибке, которое показано на рисунке. Это сообщение было создано с операции...
Bakos111
22.08.2022 12:52
Алфавит состоит из 17 букв. На диске выделено 100 байт. Сколько символов можно записать на диск?...
JAHGH
06.08.2021 07:33
написать сочинение по картине К.Юон Мартовское солнце...
Jika030302
17.03.2020 12:37
Как измениться модуль продольной упругости , если длину образца увеличить в 3 раза.(сопромат)....
Мальчик004
17.10.2021 17:38
1.из предложений связный текст. Тропическим медведям,таким как малайский медведь и медведь губач,не нужно впадать в спячку.Черные и бурые медведи, которые обитают...
lilik03
24.05.2023 09:19
Составить предложение по схеме...
makl192
29.06.2021 00:22
300 мг mg(oh)2 в молях...
rydet
05.06.2022 23:11
Сочинение по теме Остап и Андрий,два брата, две судьбы...
Аяна1765
23.06.2022 05:14
Из точки D, принадлежящей остроугольному треугольнику АВС, на стороны АВ, BС и СА опущены перпендикуляры DM, DK и DF соответственно. Известно, что угол ADM + угол...
Милаякрасавица
23.06.2022 05:14
12. Подвоєні літери треба писати в усіх словах рядка А)бру(т/тт)о, і(p/pp )еальний, до(л/лл)ар Б)Мадо(н/нн)а, Ме(к/кк)а, с(м/мм)ігрант в) па(н/нн)о, Ру(с/сс)о,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,s:integer;
begin clrscr;
s:=0; i:=7;
while i<100 do
begin
s:=s+i;
i:=i+7
end;
writeln(s);
end.