Переведите из паскаля в пайтон Переведите из паскаля в пайтон

Объяснение:

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.

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

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

а)домащняя библиотека

в виде таблицы

1.номер

2.название

3.автор

4.полка

б)1.номер

2.слово

3.вопрос

4.род

5.число

6.падеж

в)1.номер

2.имя

3.фамилия

4.отчество

5.телефон

6.адрес

7.дата рождения

8.хобби