Қажаттын өлшемін қалай орнатады
Диаграмма/*выбираете тип*/ставите координаты)))готово
Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>
невозможно выполнить
x*y*z = P
x+y+z = S
Система имеет два уравнения и три неизвесных, а значит не решается до конца
CLS
n = 0
FOR i = 1 TO 9
FOR j = 0 TO 9
FOR k = 0 TO 9
c1 = i <> j AND i <> k AND j <> k
IF c1 THEN c1 = (i + j + k) MOD 7 = 0
IF c1 THEN c1 = (100 * i + 10 * j + k) MOD 7 = 0
IF c1 THEN
PRINT i; j; k
n = n + 1
END IF
NEXT k
NEXT j
NEXT i
IF n = 0 THEN PRINT "Нет решения"
<em><u>Тестовое решение:</u></em>
3 2 9
3 9 2
5 1 8
5 8 1