Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
саша3347
12.07.2021 04:20 •
Информатика
Найти сумму всех трёхзначных чисел, кратных 77. паскаль. (использовать цикл while)
Показать ответ
Ответ:
Софайа
23.09.2020 17:59
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -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 оценок)
Популярные вопросы: Информатика
ваняшка
12.12.2021 10:44
Определить является ли введенное с клавиатуры слово палиндромом и сколько в нем гласных...
Выгуки
16.04.2023 19:51
2. Отметьте галочкой основные компоненты таблицы СОРВ СС ЛЮДИ...
Aynur123455
01.06.2022 02:31
Нужна программа для Pascal ABC , чтобы получилась вот такая картинка....
мишаиванво
18.05.2020 15:18
Сколько сообщений можно закодировать алфавитом, состоящим из символов 1,2,3,4 с длиной кода 5?...
Tegebotik
21.05.2021 14:15
сделать формулу для бонуса. Если премию то в двойне спс ) EXCEL...
DaNa1517
15.03.2023 22:47
ивт делать надо в Python (В Пайтон) ...
SpottedJay
06.08.2022 02:45
Пятачок послал Винни-Пуху сообщение по электронной почте. Скорость работы сети 10 Мегабит/сек, Сообщение передавалось 1 минуту. Какого объема сообщение. Для расчетов...
kristinka140320
29.04.2020 07:59
Сколько всего существует штрих кодов из 8 штрихов Некоторые из которых закрашенны, а некоторые - нет, но при этом крайние штрихи закрашены?...
gleb22848
01.07.2021 16:46
ХЕЛППроверочная работа по рассказу И.А. Бунина «В деревне» 1.О чем рассказ И.А. Бунина «В деревне». 2. О каком празднике повествуется в рассказе? 3. Почему в морозный...
fedosovdenis28
21.06.2020 20:35
Только правую сторону бро...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.