Converting the numbers from one system to the following: 965(10) - x(8) – x(2) – x(16) –x(10)

815 477 166 957 366 931 786

Информатика (((

Жаңа ғасыр дерті ғаламторға деген тәуелділік.Қазіргі жас ұрпақ бос уақытының бәрін осы ғаламторда өткізуде.Ғаламтор өзінің жылдамдығымен,арзандығымен,ауқымдылығымен ерекшелінеді.Ғаламтордың қоғамға деген берері көп.Мысалы:электронды сауда-саттық,интернет телефон-хабарласу,әңгіме-дүкен,электронды жіберілім,қашықтықтан білім беру т.б.Ғаламтор арқылы шет елдермен тікелей байланыс орната аласың.Қарап тұрсақ ғаламтордың қоғамға берер пайдасы көп сияқты.Бірақ пайдасы мен қоса зияны да қатар жүретін ғаламтор жас ұрпақты өзіне тәуелді етуде.Тәуелділіктің кесірі неге апарып соғарын өздеріңіз де айқын білерсіздер.Бұл сауатсыздылыққа,тәуелділікке,құмар ойындарға, көз жанарымыздың айырылуына, ойлау қабілетінің төмен болуына т.б әкеліп соқтырады.Әр нәрсенің пайдалы әрі зиянды жағы бар.Иә,ғаламтор қажет бірақ өз орнымен пайдалану керек.Ғаламторға тәуелділіктің соңы жақсылыққа апармайды.

Объяснение:

const nmax=15;

var a:array[1..nmax,1..nmax] of integer;

m,n,i,j,k,x,y:integer;

begin

randomize;

repeat

write('Количество строк до ',nmax,' n=');

readln(n);

until n in [1..nmax];

repeat

write('Количество столбцов до ',nmax,' m=');

readln(m);

until m in [1..nmax];

k:=-1;

for j:=1 to m do

begin

y:=1;

x:=j;

while(x>0) and(y<=n) do

begin

k:=k+1;

a[y,x]:=k;

x:=x-1;

y:=y+1;

end;

end;

for j:=2 to n do

begin

y:=j;

x:=m;

while(x>0)and(y<=n) do

begin

k:=k+1;

a[y,x]:=k;

x:=x-1;

y:=y+1

end;

end;

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j]:4);

writeln

end;

readln

end.

Переведите на Питон, в Паскале давно не работал