Question

Установил максимальное количество баллов! (100) Напишите программу, которая в последовательности натуральных чисел определяет среднее значение между минимальным и максимальным для чисел кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода последовательности, и в последовательность не входит). Введённые числа не превышают 30 000.Программа должна вывести одно число: среднее значение между минимальным и максимальным для чисел кратных 5 или вывести NO, если таких чисел в последовательности нет.

Answer 1

Ответ:

Pascal?

var min, max, j, count: integer;

begin

min:=30000;

max:=0;

readln(j);

while j <> 0 do begin

if (j mod 5 = 0) and (j < min) then begin

min:= j;

count:= count + 1;

end;

if (j mod 5 = 0) and (j > max) then begin

max:= j;

count:= count + 1;

end;

readln(j);

end;

if count = 0 then write('NO') else write((min+max)/2);

end.

Answer 2

                                 PascalABC.NET                                  

• begin
• var L := Lst(ReadArrInteger(1));
• while L.Last <> 0 do
• L.Add(ReadlnInteger);
• L.RemoveAt(L.Count - 1);
• if (L.Min..L.Max).Count(x -> x mod 5 = 0) <> 0 then
• Println((L.Min..L.Max).Where(x -> x mod 5 = 0).Average)
• else Println('NO');
• end.

Используется лишь одна переменная - список L.

Пример работоспособности:

Answer 3

Конечно, вот пример программы на языке Python, которая решает вашу задачу:

pythonCopy code
numbers = []
while True:
    num = int(input("Введите натуральное число (0 для завершения ввода): "))
    if num == 0:
        break
    numbers.append(num)

multiples_of_5 = [num for num in numbers if num % 5 == 0]

if not multiples_of_5:
    print("NO")
else:
    min_multiple_of_5 = min(multiples_of_5)
    max_multiple_of_5 = max(multiples_of_5)
    average = (min_multiple_of_5 + max_multiple_of_5) / 2
    print(average)

Скопируйте этот код в вашу среду программирования, и он будет выполнять описанные вами действия. Программа будет запрашивать натуральные числа до тех пор, пока не будет введен 0. Затем она найдет числа, кратные 5, в введенной последовательности, и если такие числа есть, вычислит и выведет среднее значение между минимальным и максимальным числом из них. Если таких чисел нет, программа выведет "NO".