Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
вот так расшифровывается эта хрень
1)либо х в степени (х/4) или х √(х/4)
2)либо 1/ (а в степени (в/а)) или 1/ (а√в/а))
3) либо а в степени (1/с/в/в) или а √(1/с/в/в)
в таких номерах обычно 2 решения (так нам объясняли)
Ответ:
Объяснение:
1а-4
1б=1
1в=6
2а= название = "комсомольская правда" и срок = 12 или тип = журнал
2б=название = журнал и срок = 6 или название = известия и тип = газета
3=6 1 5 3 2 4
4=название = "комсомольская правда" или "Огонек"
Вот и код. Если я не правельно понял задание, скажи
Экспертаня система - компьютерная система, способная частично заменить специалиста-эксперта в разрешении проблемной ситуации.
сюда подходят
1) система управления траспортом
2) система моделирования зданий