
Вопрос задан 03.03.2021 в 04:43.
Предмет Информатика.
Спрашивает Беков Абдурахман.
Найти сумму всех трёхзначных чисел, кратных 77. Паскаль. (использовать цикл while)


Ответы на вопрос

Отвечает Костырин Андрей.
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -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.
//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.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Вот решение задачи на поиск суммы всех трехзначных чисел, кратных 77, используя цикл while
в языке программирования Паскаль:
pascalprogram SumOfMultiples; var num, sum: integer; begin num := 100; sum := 0; while num <= 999 do begin if num mod 77 = 0 then sum := sum + num; num := num + 1; end; writeln('Сумма всех трехзначных чисел, кратных 77: ', sum); end.
В этом коде мы начинаем с числа 100 и продолжаем увеличивать его до 999. В каждой итерации проверяем, делится ли число на 77 без остатка (num mod 77 = 0
). Если условие выполняется, мы добавляем это число к сумме (sum := sum + num
). После завершения цикла выводим сумму всех найденных чисел, кратных 77.


Топ вопросов за вчера в категории Информатика

Информатика 565

Информатика 25

Информатика 22

Информатика 27

Информатика 34

Информатика 58

Информатика 63

Информатика 23
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili