
Вопрос задан 01.08.2023 в 13:16.
Предмет Информатика.
Спрашивает Шутова Анастасия.
Напишите программу, которая в последовательности натуральных чисел определяет
количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество трёхзначных чисел, кратных 4. (while, repeat).

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

Отвечает Кончаков Максим.
Program ryazantsev;
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для решения этой задачи, напишем программу на языке программирования Python, используя цикл while
. Программа будет считывать последовательность чисел до тех пор, пока не будет введено число 0. Затем она проверит каждое введенное число и подсчитает количество трёхзначных чисел, кратных 4. В итоге, программа выведет полученное количество.
Вот программа:
pythondef is_three_digit_multiple_of_four(number):
return 100 <= number <= 999 and number % 4 == 0
def main():
count = 0
while True:
try:
num = int(input("Введите число (0 для завершения ввода): "))
except ValueError:
print("Некорректный ввод! Попробуйте еще раз.")
continue
if num == 0:
break
if is_three_digit_multiple_of_four(num):
count += 1
print(f"Количество трёхзначных чисел, кратных 4: {count}")
if __name__ == "__main__":
main()
Программа будет просить пользователя вводить числа, пока не будет введено число 0. Затем она подсчитает количество трёхзначных чисел, кратных 4, и выведет результат на экран.


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

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

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

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

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

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

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

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