Уменя сор по на 24 варианта, одноклассники не могу, а вообще не понимаю
хотя бы лёгкие , заранее ! ​!

6

Пошаговое объяснение:

Рассмотрим, каке число может стоять напротив 8.

Если напротив 8 стоит 1, то сумма чисел на противоположных гранях равна 9. Но тогда напротив 5 должна стоять 4, а эта цифра уже занята.

Если напротив 8 стоит 2, то сумма чисел на противоположных гранях равна 10. Но тогда напротив 5 должна стоять тоже 5, эта цифра занята.

Если напротив 8 стоит 3, то сумма чисел на противоположных гранях равна 11. Тогда напротив 5 должна стоять 11-5=6, а напротив 4 - стоять 11-4=7.

Цифры 4 и 5 уже заняты.

Если напротив 8 стоит 6 или более, то сумма чисел на противоположных гранях равна 14 или более. Тогда напротив 4 должно стоять число как минимум 10. На максимально возможное число 9. Значит, эти варианты не реализуются.

Итак, единственный вариант, когда сумма чисел на противоположных гранях равна 11. Тогда на нижней грани стоит число 6.

1)
program one;
uses crt;
var A: array [1..6] of integer;
i,k,Amin,Amax,S: integer;
begin
readln (A[i]);
Amax:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]>Amax then begin
k:=i;
Amax:=A[i];
end;
end;
Amin:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]<Amin then begin
k:=i;
Amin:=A[i];
end;
end;
S:=0;
for i:=1 to 6 do begin
if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then
S:=S+A[i];
end;
writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S);
end.

2)
program two;
uses crt;
var x,a,b,i,n: integer;
y: real;
begin
readln (a,b,i,n);
x:=a;   
repeat
if -2<=x<=2 then
y:=sqr(x)-1
else
y:=sqrt(x-1);
writeln (y:3:4);
i:=i+n;
until x>=b;
end.