
Написать программы: 1. На вход поступает последовательность натуральных чисел, заканчивающаяся
числом 0 (0 - признак окончания последовательности). Все числа не превышают значение 65535. Программа должна вывести Б) Максимальное число из этой последовательности В) Минимальное число этой последовательности Г) Количество чисел, последняя цифра которых - 7

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

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -> t <> 0)
.Foreach(t ->
begin
if t > max then max := t;
if t < min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)
end.



Для решения данных задач, вам потребуется написать программу на языке программирования, так что я предоставлю вам примеры кода на Python. Эти программы будут читать последовательность натуральных чисел до тех пор, пока не встретится число 0, и затем выполнять необходимые действия.
- Нахождение максимального числа:
pythondef find_max_number():
max_number = 0
while True:
num = int(input("Введите число (0 для окончания ввода): "))
if num == 0:
break
max_number = max(max_number, num)
return max_number
result_max = find_max_number()
print("Максимальное число:", result_max)
- Нахождение минимального числа:
pythondef find_min_number():
min_number = 65535
while True:
num = int(input("Введите число (0 для окончания ввода): "))
if num == 0:
break
min_number = min(min_number, num)
return min_number
result_min = find_min_number()
print("Минимальное число:", result_min)
- Нахождение количества чисел, последняя цифра которых - 7:
pythondef count_numbers_ending_with_seven():
count = 0
while True:
num = int(input("Введите число (0 для окончания ввода): "))
if num == 0:
break
last_digit = num % 10
if last_digit == 7:
count += 1
return count
result_count = count_numbers_ending_with_seven()
print("Количество чисел, оканчивающихся на 7:", result_count)
Это примеры программ на языке Python, которые выполняют указанные задачи. Вы можете запустить каждую программу и вводить последовательность чисел с клавиатуры, завершая ввод числом 0. Программы выведут результаты в соответствии с поставленными задачами.


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