Паскаль 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.

Не проходит тест, что нужно дописать чтобы прошло тест где коробки были бы не подобными?

Question

Информатика

Джонис

27 июля, 21:04

Паскаль 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.

Не проходит тест, что нужно дописать чтобы прошло тест где коробки были бы не подобными?

+2

Ответы (1)

Знаете ответ?

Анжеа · Answer 1

Program qq;

var a, b, c, d, f, g : integer;

begin

write ('Ведите размерность 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.