
Вопрос задан 05.04.2021 в 06:58.
Предмет Информатика.
Спрашивает Бертольд Мария.
Ребят, срочно нужно написать программу, которая в последовательности натуральных чисел определяет
максимальное число, кратное 7. Программа должна вывести одно число, кратное 7.

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

Отвечает Красовская Мария.
Мне кажется тебе с таким заданием надо идти на сайт фриланса и искать там программиста



Отвечает Сыртланов Илья.
Var
i, t, max, n: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(t);
if (t mod 7 = 0) and (t > max) then
max := t;
end;
writeln(max);
end.
i, t, max, n: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(t);
if (t mod 7 = 0) and (t > max) then
max := t;
end;
writeln(max);
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я могу помочь с написанием такой программы. Вот пример кода на языке Python, который находит максимальное число, кратное 7 в заданной последовательности:
pythonnumbers = input("Введите последовательность натуральных чисел через пробел: ")
numbers_list = numbers.split()
max_multiple_of_7 = None
for num in numbers_list:
num = int(num)
if num % 7 == 0:
if max_multiple_of_7 is None or num > max_multiple_of_7:
max_multiple_of_7 = num
if max_multiple_of_7 is not None:
print("Максимальное число, кратное 7: ", max_multiple_of_7)
else:
print("В последовательности нет чисел, кратных 7")
Пример работы программы:
yamlВведите последовательность натуральных чисел через пробел: 1 2 7 14 8 21
Максимальное число, кратное 7: 21
Надеюсь, это поможет вам решить вашу задачу!


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