1125 байт = 1125*8 бит
Объем одного символа = 1125*8 / (15*20) = 30 бит
Количество символов в алфавите = 2^30 = 1024^3 = 1 073 741 824
1)Когда былина переходит из уст в уста, она упрощается
2)Когда человек человек умирает, не рассказав другому важную тайну, информация разрушается
Var mas:array[1..100,1..100] of integer;
N,M,D,N2,i,C,j,M2,k:integer;
begin
N:=0;D:=0;k:=0;
write('Введите N = ');Readln(N);
write('Введите M = ');Readln(M);
For i:= 1 to M do begin
M2:=1;
For N2:=i downto 1 do begin
if M2<=N then begin
mas[M2,N2]:=k;
k:=k+1;
M2:=M2+1;
end;
end;
end;
//после побочной диагонали
For D:=2 to N do begin
M2:=D;
For N2:=M downto 1 do begin
IF (M2<=N) and (N2<=M) then begin
mas[M2,N2]:=k;
k:=k+1;
M2:=M2+1;
end;
end;
end;
For i:=1 to N do begin Writeln();
for j:=1 to M do
write(mas[i,j],' ');
end;
end.
Знаешь что делать,так кнопка есть в левом верхнем углу,нажми на нее и держи 5 секунд.У меня работает так.
(Очень хочу 5 баллов)