Перед выводом решения выражения i*j будет выведено 3 пробела.
Program n_12;
var a;
begin
write ('введите число');
if (a); a= положит., отрицат., или равное 0
end.
Переименование,копирование,перемещение,удаление,отправление(по e-mail)
Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив
readln;
end;
for i:= 1 to 7 do
begin // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив
writeln;
end;
END.
1)m(Hcl)=50*0.292=14.6г
2)n(hcl)=m/M=14.6/36.5-=0.4моль
3)n(оксида металла)=0,4/2=0,2
4)M(оксида металла)= 8/0,2=40
5)раз металл двухвалентен, то значит формула - MeO, следовательно вычти из молярной массы оксида массу кислорода
М(металла)=40-16=24
следовательно, MgO