Writeln;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
d[i,j]:=0;
for k:=1 to n do
d[i,j]:=d[i,j]+ma[i,k]*b[k,j];
write(d[i,j]:4);
end;
writeln;
end;
<span>end.</span>
Если тебе нужно перевести число(целое) из десятичной системы счисления в любую другую,то ты делишь данное число на основание системы счисления,в которую тебе нужно перевести. В данном случае делили десятичное число(целое) 754 на 2(т.к. двоичная сис-ма счисления) на 8 и на 16.
Var
s,k:longint;
begin
s:=50;
for k := 1 to 9 do
s:=s-3;
writeln(s);
end.
Ответ s =23
Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью
1-4
2-1
3-2
4-5
5-3
(хотя с региональной сетью в вопросе косяк)