Type Matrix = array[1..10,1..10] of integer;
var
M,N,K,j:integer;
A:Matrix;
Function SumCol(A:Matrix; M:integer; N,K:integer):Real;
var
j,Sum:integer;
begin
Sum:=0;
if K<=N then
for j:=1 to N do
Sum:=Sum+A[j,k];
SumCol:=Sum;
end;
Procedure EnterMatrix(var B:Matrix; var M,N:integer);
var j,j2:integer;
begin
Write('M: ');
Readln(M);
Write('N: ');
Readln(N);
for j:=1 to N do
begin
for j2:=1 to M do
begin
Write (' ',J2,':',J,' : ');
Read (B[J2,J]);
end;
Writeln;
end;
end;
begin
EnterMatrix(A,M,N);
for j:=1 to 3 do
begin
Write('K: ');
Readln(K);
Writeln(SumCol(A,M,N,K));
end;
end.
перевестите в паскал на питон
Это трибунал священной канцелярии инквизиции (исп. Tribunal del Santo Oficio de la Inquisición, широко известный как Испанская инквизиция, исп. Inquisición española) — суд, созданный в 1478 году католическим монархом Фердинанда II Арагонским и Изабеллой I Кастильской. Возглавлял инквизицию - Великий ген. инквизитор Кастилии и Арагона Торквемаду, который и завершил дело преобразования испанской инквизиции.В 1484 году Торквемада назначил в Севилье общий съезд всех членов испанских инквизиционных трибуналов, и здесь был выработан кодекс, регулировавший инквизиционный процесс.
Результаты истребительной деятельности испанской инквизиции при Торквемаде, в период от 1481 до 1498 года : около 8 800 человек было сожжено на костре; 90 000 человек подверглось конфискации имущества и церковным наказаниям; кроме того были сожжены изображения, в виде чучел или портретов; 6 500 человек от казни посредством бегства или смерти.