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

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.

Программа предлагает исправить слово с ошибками, только при одном условии, если оно есть в словаре этой программы.

Проверка правописания знает не все слова в мире, а только те, которые ей ввел разработчик, поэтому некоторые слова программа исправить не сможет.

Зеленая - это синтаксическая ошибка допущена, не поставлена запятая и т.п.,

Красная - это орфографическая ошибка, то есть, ошибка в правописании.

Чтобы удалить один символ во всех словах, нужно нажать сочетание клавишь CTRL + F, если она не работает, то CTRL + H, тогда мы вводим символ, которых хотим найти, далее вводим в бланк "Заменить" пробел.

Чтобы удалить все лишние пробелы в документе замена двух пробелов подряд на один пробел (учтите, что в полях Найти и Заменить на пробелы вы не увидите). Процедуру повторить несколько раз. Это избавиться от нескольких пробелов между словами, но в начале строки останется один пробел.

Вариант, когда массив заполняется случайными числами:

var A: array [1..10] of integer;

var i,max,min: integer;

begin

max:=1;

min:=1;

randomize();

for i:=1 to 10 do

 begin

 A[i]:=random(100);

 write(A[i],' ');

 if (A[i]>A[max]) then max:=i;

 if (A[i]<A[min]) then min:=i;

 end;

writeln();

writeln('Минимальный элемент: ',A[min]);

writeln('максимальный элемент: ',A[max]);

end.

Вариант, когда массив вводится с клавиатуры:

var A: array [1..10] of integer;

var i,max,min: integer;

begin

max:=1;

min:=1;

for i:=1 to 10 do

 begin

 readln(A[i]);

 if (A[i]>A[max]) then max:=i;

 if (A[i]<A[min]) then min:=i;

 end;

writeln();

writeln('Минимальный элемент: ',A[min]);

writeln('максимальный элемент: ',A[max]);

end.