Выяснить, пройдёт ли...

Тема в разделе "Информатика", создана пользователем Yuliana, 16 фев 2010.

  1. Yuliana

    Yuliana New Member

    Выяснить, пройдёт ли кирпич с рёбрами a, b, c в квадратное отверстие со стороной x.
     
    Yuliana, 16 фев 2010
    #1
  2. SEDOJ

    SEDOJ New Member

    Program help;
    Uses Crt;
    Var a, b, c, x : Byte;

    Begin
    Write('Введи a, b, c, x: ');
    Readln(a, b, c, x);

    If ((a <= x) and (b <= x)) or ((a <= x) and (c <= x)) or ((b <= x) and (c <= x)) then
    Write('Пролезет')
    Else
    Write('Не пролезет');
    End.
     
    SEDOJ, 16 фев 2010
    #2

Поделиться этой страницей

Наша группа