В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
adelgabdrahman
adelgabdrahman
15.02.2021 07:08 •  Информатика

Паскаль 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. не проходит тест, что нужно дописать чтобы тест где коробки были бы не

Ответ:
ksenyakozlova2
ksenyakozlova2
09.10.2020 12:48
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?