Задать вопрос
28 октября, 00:58

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

+2
Ответы (1)
  1. 28 октября, 02:14
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Программа получает на вход целые числа, не равные 0. Количество введенных чисел неизвестно, последовательность чисел заканчивается 0. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы