Вопрос задан 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
 
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			
			