Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Александра110799
19.07.2021 18:01 •
Информатика
Найти сумму n чисел натурального ряда кратных 7, начиная с k> 0, n> 0,n и k вводятся с клавиатуры.
Показать ответ
Ответ:
7376373
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 оценок)
Популярные вопросы: Информатика
vika2087
26.02.2022 14:38
Дано отрицательное число −10(в степени)10. в восьмиразрядном представлении:...
FreonTime
26.02.2022 14:38
Размеры растрового изображения 800*1024 точек. глубина цвета 16 бит. определить информационный объем изображения...
37к6
03.12.2020 11:52
89 1 исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b — целые числа),...
Kesha4444
04.02.2020 08:37
решить , задание на украинском....
Aiden131
02.02.2021 11:29
Найдите ошибку в цикле while: /*подсчет введенных символов кроме символов новая строка */...
batareya666
02.03.2021 20:13
Найти сумму и произведение цифр введённого натурального числа например если введено число 325 то сумма его цифр равна 10(3+2+5) а произведение 30(3*2*5)...
mangleplaydj1
23.08.2021 22:15
6. Pepaktopbi HTML dasturining vazifasi...A) Nashriyot tizimlarida nashrga tayyorlashni avtomatlashtirishdir.B) Qo shimcha ma lumotlarni kiritish va ma lumotlardan foydalanish...
Кирилл11221
23.08.2021 22:15
Решите задачу: В некоторой кодировке символ кодируется 8 битами. Определите информационный вес сообщения, ответ запишите в байтах:Ученье – свет, а неученье – тьма.(надо писать...
Elnarikys
23.08.2021 22:15
Каково будет значение переменной Ү после выполнения операции присваивания: А:=5; В:=4; Ү:=А+В...
magomed200495
28.05.2020 05:07
Очень расписывая решение от дано до ответа 2. Дано: АВС, = 900, СК ⟘ АВ, ∠ВСК = 300, ВК = 7,5см, АС = 20см, фото треугольника прилогаю Найти: Периметр...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.