Программа получает на вход целые числа, не равные - вопрос №73307760 от Топор228 24.02.2021 13:05

Question

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

Топор228 · Answer

Var A,Max,Min:integer;BeginReadLn(A);Max:=A;Min:=A;While A 0 do   Begin   ReadLn(A);   if A Max then Max:=A;   if A Min then Min:=A;   End;WriteLn(Max/Min 2)End....