Программа получает на вход целые числа, не равные 0. Количество введенных чисел неизвестно, последовательность чисел заканчивается 0. Введенные числа по модулю не превышают 30000. Программа должна ответить на вопрос: верно ли, что максимальное из чисел превышает минимальное больше чем в 2 раза?

Question

Информатика

Сюня

27 января, 04:37

Программа получает на вход целые числа, не равные 0. Количество введенных чисел неизвестно, последовательность чисел заканчивается 0. Введенные числа по модулю не превышают 30000. Программа должна ответить на вопрос: верно ли, что максимальное из чисел превышает минимальное больше чем в 2 раза?

+5

Ответы (1)

Знаете ответ на вопрос?

Диомид · Answer 1

Var A, Max, Min:integer;

Begin

ReadLn (A) ;

Max:=A;

Min:=A;

While A0 do

Begin

ReadLn (A) ;

if A>Max then Max:=A;

if A
End;

WriteLn (Max/Min > 2)

End.