Неверно, что в системе базами данных (субд) ms access существуют: 1) запросы на выработку 2) перекрестные запросы 3) запросы с параметром 4)связанные запросы
Тачки 2 одинаковые монеты например 10 руб. на одну сторону и 10 руб. на другую сторону что так чтобы в равновесии потом убери одну монетку и стать в другую если они тоже будут одинаковые стать другом летать по очереди не стоять в одну сторону по одной монетки потомстве То какая то будет тяжелее той монеты Ну или легче Что значит то Монеты которые тяжелее или легче То есть все же одинаковые монеты А есть одна Какая прекрасная может быть и тяжесть в сети монетки настоящий или ненастоящий монетки на которые будут отделяться отделяться весом такое фальшивка
Var matrix: array[1..5,1..5] of integer; i, j: integer; sg:=0; sp:=0;begin writeln ('Введите 25 чисел: '); for i := 1 to 5 do for j := 1 to 5 do read (matrix[i,j]); for i := 1 to 5 do begin for j := 1 to 5 do write (matrix[i,j], ' '); writeln end; for i:=1 to 5 do begin for j:= 1 to 5 do if j=i then sg:=sg+matrix[i,j]; end; for i:=5 downto 1 do begin for j:=1to 5 do if (i+j)=6 then sp:=sp+matrix[i,j] end; sp:=sp-matrix[3,3];1 writeln(sg,' ',sp);readlnend.
