Предмет: Информатика, автор: МишкиРулят

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

Ответы

Автор ответа: Аноним
0
Var A,Max,Min:integer;
Begin
ReadLn(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.
Похожие вопросы
Предмет: Математика, автор: aminasavchenko571
Предмет: Алгебра, автор: foxintro7
Предмет: Русский язык, автор: zasminrahmatullina02
Предмет: Литература, автор: klassnomer4
Предмет: Литература, автор: Kez198557