Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
artemonimus
25.08.2020 21:58 •
Информатика
Задание: Сделать Базу данных выбрав следующие темы: 1) Тур фирма
2) Деканат
3) Группа
4) Библиотека
Показать ответ
Ответ:
Tata123N
15.09.2022 17:56
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
0,0
(0 оценок)
Ответ:
Mtzv17
04.01.2020 12:14
Прога написанная в codeblocks: #include < iostream> using namespace std; int main() { setlocale(lc_all,"russian"); int a[20]; int b, c, i, q=0; for(i=1; i< 21; i++) { cout< < "введите "< < i< < " число: "; cin> > a[i]; } cout< < "введите начальный номер элемента массива: "; cin> > b; cout< < "введите конечный номер элемента массива: "; cin> > c; for(int j=b; j< c+1; j++) { q+=a[j]; } cout< < "cумма элементов массива с номерами с "< < b< < " по "< < c< < " равна: "< < q; } я надеюсь тебе была нужна прога на с++))
0,0
(0 оценок)
Популярные вопросы: Информатика
denmalyshevs
04.09.2022 21:27
Используя таблицу ascii Раскодируй слово стоящее из набора чисел 66 89 84 69...
maivina7777777
05.01.2020 00:53
Сәйкестікті анықтаңдар 3.5 кесте...
Альона13345
12.11.2022 15:13
Написать программу для нахождения площади и периметра прямоугольного треугольника со сторонами а и в : )...
Arina8987
12.11.2022 15:13
:решить : два разных по величине числа. определить какое из этих чисел больше. (сравнение двух чисел)даны два числа. если квадратный корень из второго числа меньше первого...
nikitafonarik05
02.07.2021 01:34
1)перевести из 2 в 10 систему числаа)11б)101012)перевести из 10 в 2 системуа)464б)380...
saraarakelyan1
23.05.2023 10:43
Мұрат мөңке ұлы кім ...
ivanovavlada36
31.07.2021 05:27
Рассчитай количество вещества и массу кислорода, образовавшегося при разложении 632 г перманганата калия. 1. Количество вещества KMnO4 = моль 2. Количество вещества O2...
dashalimonka2
04.04.2021 12:41
435. Найдите корни уравнений: 5332) у 121)1+ у410411434)+ у15253) y +115...
шппмдд
04.04.2021 12:41
1.Известно, что некая планета имеет сидерический период в 120 лет. Определите какая это Планета внутренняя или внешняя,найдите большую полуось орбиты этой планеты.2.Большая...
sagoankristina1
04.04.2021 12:41
В какой молекуле степень окисления равна нулю, а валентность двум?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.