
Вопрос задан 13.07.2023 в 00:58.
Предмет Информатика.
Спрашивает Бутенко Никита.
Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное
число, не оканчивающееся на 2. Программа получает на вход последовательность натуральных чисел, заканчивающуюся нулём. В последовательности всегда имеется чётное число, не окан- чивающееся на 2. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число --минимальное чётное число, не оканчивающееся на 2.

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

Отвечает Морозов Савелий.
program min_ne_okon_na_2;
var
m,x:integer;
begin
m:=30000;
read(x);
repeat
if (x<m)and(x mod 2=0)and(x mod 10<>2) then
m:=x;
read(x);
until x=0;
write(m);
end.




Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на языке Python, которая выполняет описанную задачу:
python# Инициализируем переменную для хранения минимального чётного числа
min_even_number = float('inf')
# Вводим первое число
num = int(input("Введите число (0 для завершения): "))
# Пока не введен ноль
while num != 0:
# Проверяем, является ли число чётным и не оканчивается на 2
if num % 2 == 0 and num % 10 != 2:
# Обновляем минимальное чётное число
min_even_number = min(min_even_number, num)
# Считываем следующее число
num = int(input("Введите число (0 для завершения): "))
# Выводим минимальное чётное число, если такое найдено
if min_even_number != float('inf'):
print("Минимальное чётное число, не оканчивающееся на 2:", min_even_number)
else:
print("Чётное число, не оканчивающееся на 2, не было найдено.")
Программа запрашивает последовательно ввод чисел до тех пор, пока не будет введен 0. В каждой итерации она проверяет, является ли число чётным и не оканчивается на 2, и если это так, обновляет значение минимального чётного числа. По завершении ввода, программа выводит найденное минимальное чётное число, удовлетворяющее условиям.


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

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

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

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

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

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

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

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

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