Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
fearlessaliss
15.02.2022 14:34 •
Информатика
Найти сумму n чисел натурального ряда кратных 7, начиная с k> 0, n> 0,n и k вводятся с клавиатуры.
Показать ответ
Ответ:
вованоджи
02.10.2020 12:58
Var a,b,c,d:integer;
beginwriteln('введите число с которого начинать считать');
readln(a);
writeln('введите число на которым окончить счёт');
readln(b);
d:=0;
for c:=a to b do
begin
if c mod 7 = 0 then
d:=d+c;
end;
writeln(d);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
leonru1
14.10.2021 06:03
На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом. 1) Число N увеличивается сначала в 2 раза, после чего результат вычисления...
Зачемжежить
01.09.2021 23:06
Придумать два сложных высказывания со словами связками и сделать вывод.заранее ....
daria383ver
15.02.2020 15:19
Решите линейное уравнение 19z=38+6 *19...
vagiz7000
09.05.2020 18:48
Решите контрольную по информатике.!...
zologiru
21.12.2022 19:09
Определите значение переменной c после выполнения следующего фрагмента программы, в котором a, b и c – переменные вещественного (действительного) типа. бейсик паскаль a =...
marusy552
22.10.2020 00:37
Найдите грамматические основы. прохладно, тихо, пасмурно. раскрылись почки на берёзах и остановились. плотная зелень озимого поля. на пару ходят овцы. веточки черёмухи, обвитые...
QureAdmiral
22.10.2020 00:37
Сочинить сказку, размером примерно на 1 сторону листа а4, которая начинается на жили были или тому подобное. нужно...
ponterez
22.10.2020 00:37
Найди и выпиши личные местоимения. определи их лицо число и падеж. после уроков мы с мишкой собрали...
YTO4KA1337
22.10.2020 00:37
Каковы основные функции политических партий?...
Бусіта
22.10.2020 00:37
Как оценивается труд рабочих из стихотворения железная дорога некрасов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
beginwriteln('введите число с которого начинать считать');
readln(a);
writeln('введите число на которым окончить счёт');
readln(b);
d:=0;
for c:=a to b do
begin
if c mod 7 = 0 then
d:=d+c;
end;
writeln(d);
end.