Вопрос задан 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, и выведет результат на экран.
Похожие вопросы
Топ вопросов за вчера в категории Информатика
Информатика 67
Информатика 201
Информатика 16
Информатика 16
Информатика 11
Информатика 37
Информатика 2160
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili
