• Паскаль 8 класс. Помогите дописать в Паскаль, успользуя сложные условия.
    Задание:На столе лежат коробка размера A1 × B1 × C1 и коробка размера A2 × B2 × C2. Выясните можно ли одну из этих коробок положить в другую, если разрешены повороты коробок вокруг любого ребра на угол 90 градусов.
    Вот так начал я:
    program qq;
    var a, b, c,d, f,g : integer;
    begin
    read(a,b,c,d,f,g);
    if (a + b + c) = (d + f + g) then write('Boxes are equal');
    if (a + b + c) > (d + f + g) then write('The first box is larger than the second one');
    if (a + b + c) < (d + f + g) then write('The first box is smaller than the second one');
    end.
    Не проходит тест, что нужно дописать чтобы прошло тест где коробки были бы не подобными???

Ответы 6

  • жди)
    • Автор:

      devanpvpc
    • 5 лет назад
    • 0
  • смотри вот так
  • так не работает т.к при данном алгоритме коробки должны быть совместимы, а программа выводит,что они не совместимы.
    • Автор:

      madyson
    • 5 лет назад
    • 0
  • из-за последней строчки
    • Автор:

      mccarthy
    • 5 лет назад
    • 0
  • в моем случаи где +
  • program qq;var a, b, c,d, f,g : integer;beginwrite('Ведите размерность 1 коробки');readln(a,b,c);write('Ведите размерность 2 коробки');readln(d,f,g);if (a*b*c)>(d*f*g) then Write ('первая коробка больше второй');if (a*b*c)<(d*f*g) then Write ('вторая коробка больше первая');if (a=d) and (b=f) and (c=g) then Write ('коробки одинаковы')else write ('коробки не совместимы.');end.
    • Автор:

      pickles
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years