Объяснение:
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.
Переведите на Питон, в Паскале давно не работал
Если число в системе с основанием х оканчивается на 22, то
х больше или равно 0 , потому что в системах с меньшим основанием нет цифры 3
это число можно представить в виде А*Х2=2Ч=2 , где А– целое неотрицательное число
определим наибольшее возможное А с учетом условия х больше или равно 0. Из уравнения А*Х2=2Ч=2следует А=84-2Х/Х2
очевидно, что чем меньше Х, тем больше А, поэтому значениене превышает А МАКС =84-6/3^2=8ЦЕЛЫX З/2.
здесь мы подставили X=3– наименьшее допустимое значение [
остается перебрать все допустимые значения A (от 0 до A MAX =8), решая для каждого из них уравнение A*X2+2X+2=86
относительно X , причем нас интересуют только натуральные числа х больше или равно 0
получаем
при : A=0 X=42
при : A=1 решения – не целые числа
при :A=2 X =62
при :A=3.4.5.6.7.8 решения – не целые числа
таким образом, верный ответ: 6, 42.
