В одной из кодировок Unicode каждый символ кодируется 16 битами. При подготовке реферата по биологии - id1209511820200822 от voronavv2016p08wqy 22.08.2020 13:59

Question

Информатика: В одной из кодировок Unicode каждый символ кодируется 16 битами. При подготовке реферата по биологии Вова написал следующий текст (в нём нет лишних пробелов). «Як, тар, лама, окапи, пекари, бегемот, антилопа, бабирусса, бородавочник относятся к диким парнокопытным животным». Затем Вова вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 16 байт

voronavv2016p08wqy · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

Var
ma:array of array of integer;
i,j,n,r:integer;
begin
readln(n);
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],n+1);
writeln('Matrix:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
   begin
    ma[i,j]:=random(n);
    write(ma[i,j]:4);
   end;
end;
for i:=1 to n do
for j:=i+1 to n do
r:=r+ma[i,j];
r:=r div 3;
writeln;
if odd(r) then writeln('Да') else writeln('Нет');
end.

Пример ввода:
4
Пример вывода:
Matrix:

   0   1   3   3
   3   0   0   3
   2   3   0   2
   3   0   2   3
Нет

MOGZ ответил