Ч заменяется на Т и ь знак остаётся и получается мять
//Pascal ABC.NET 3.1 сборка 1256
Const
n=4;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(10);
write(ma[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
begin
swap(ma[i,i],ma[n-i+1,n-i+1]);
swap(ma[i,n-i+1],ma[n-i+1,i]);
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to n do
write(ma[i,j]:4);
writeln;
end;
end.
//алг цифры;
var N,k:integer; // цел N,K
begin // Нач
Read(N); // ввод (N);
k:=0; // k:=0
while N>=1 do // Пока N>=1
begin // нц
N:=N div 10; // N:=N div 10;
k:=k+1; // k:=k+1
end; // kц
Writeln(k) // Вывод k
end. // кон
Ответ:
16*3=48
48-2=46
46*3=138
138-2=136
136*3=408
408-2=406
406*3=1218
1218-2=1216
Если надо расписать по командам,то:
21212121
1+2+3+4+5 все сложи и получится ответ