Паскаль напишите программу, содержащую процедуру print, которая выводит последовательность: aababcabcd abc xyz

Procedure print();
 var i,j: char;
begin
 for i := 'A' to 'Z' do
 for j := 'A' to i do
   write(j)
end;

begin
 print()
end.

Объяснение:

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.

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

Задача трёхмерного моделирования — описать эти объекты и разместить их в сцене с геометрических преобразований в соответствии с требованиями к будущему изображению.

Назначение материалов: для сенсора реальной фотокамеры материалы объектов реального мира отличаются по признаку того, как они отражают, пропускают и рассеивают свет; виртуальным материалам задаётся соответствие свойств реальных материалов — прозрачность, отражения, рассеивания света, шероховатость, рельеф и пр.

Наиболее популярными пакетами сугубо для моделирования являются:

Pixologic Zbrush;

Autodesk Mudbox, Autodesk 3Ds Max;

Robert McNeel & Assoc. Rhinoceros 3D;

Trimble SketchUp.

Blender

Компас (САПР)