Паскаль 8 класс. Помогите дописать в Паскаль, успользуя трудные условия.Задание:На столе
Паскаль 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) gt; (d + f + g) then write('The first box is larger than the second one');
if (a + b + c) lt; (d + f + g) then write('The first box is smaller than the second one');
end.
Не проходит тест, что необходимо дописать чтоб прошло тест где коробки были бы не подобными???
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)gt;(d*f*g) then Write ('1-ая коробка больше второй');
if (a*b*c)lt;(d*f*g) then Write ('2-ая коробка больше первая');
if (a=d) and (b=f) and (c=g) then Write ('коробки одинаковы')
else write ('коробки не совместимы.');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.