М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
HKTOG
HKTOG
18.01.2021 09:34 •  Информатика

У фрагменті знаходиться певним чином закодований текст. При кодуванні використовувались коди відповідних символів в десятковій системі з набору UNICODE. Точно відомо, що текст написаний українською мовою і що слово від слова відділено двома пробілами. Розшифруйте текст і відповідь запишіть у тому ж файлі. 2023223832235322383232227322243225432322263232247322323224132242321793223 63232239322383223532179, 20532224323224132224322363217932й32322363223832227322323223532179, 1963222632179323224232238322393223832235321793232226322323224132238322343 217932ї 20632д3223732224323223832д3223732у3232х3223232235322323224232ь. 1783232б32е32з3232226321793224232р32у32322273223832й32д32224322543224232ь3 224132я, 20432238322263232б3223832р322543224232ь3224132я32322263232239322383223532 179. 2063224232238323224132е322413224232р3223232–322473222432р3217932226322373 223232ц3217932— 206322423217932ї32322423223832239322383223532179.

👇
Ответ:
VafaMurad
VafaMurad
18.01.2021

Коло гаю в чистім полі,

На самій могилі,

Дві тополі високії

Одна одну хилить.

І без вітру гойдаються,

Мов борються в полі.

Ото сестри-чарівниці —

Отії тополі.

4,7(65 оценок)
Открыть все ответы
Ответ:
НаТаШаЯЯЯ
НаТаШаЯЯЯ
18.01.2021
Var
  mas: array [,] of integer;
  i,j,m,n,s,max: integer;
  f:boolean;
begin 
write('Введите размерность массива: ');
readln(n); 
write('Введите число m: ');
readln(m);
setlength(mas,n+1,n+1);
for i:=1 to n do
  begin;
  for j:=1 to n do
    begin
    mas[i,j]:=random(-m,m);
    write(mas[i,j]:6);
    if (j>i) and (mas[i,j]=0) then s:=s+1;
    end;
  writeln;
  end;
j:=n;
f:=false;
for i:=1 to n do
  begin
  if (mas[i,j] mod 2=0) then
       begin
       if f=false then
         begin
         max:=mas[i,j];
         f:=true;
         end;
       if (mas[i,j]>max) then max:=mas[i,j];
       end;
  j:=j-1;
  end;
writeln('Число нулей над гл.диагональю: ',s);
writeln('Максимальный четный на доп.диагонали: ',max);
end.
4,6(56 оценок)
Ответ:
trofimovigor07
trofimovigor07
18.01.2021
//PascalABC.NET 3.2 сборка 1318

Const
  n=3;
  m=4;

Var 
 ma:array[1..n,1..m] of integer;
  ZeroCount:array[1..m] of integer;
  i,j,k,buf:integer;
begin
for i:=1 to n do
  for j:=1 to m do
    readln(ma[i][j]);
 writeln('Matrix:');
 for i:=1 to n do
  begin
    for j:=1 to m do
      write(ma[i][j]:4);
    writeln;
  end;
writeln('Count of zero elements:');
for j:=1 to m do
begin
  for i:=1 to n do
    if ma[i][j]=0 then inc(ZeroCount[j]);
  writeln(j,':',ZeroCount[j]);
end;
for i:=1 to m-1 do
  for j:=i+1 to m do
    if ZeroCount[i]<ZeroCount[j] then
      begin
        for k:=1 to n do
          begin
            buf:=ma[k][i];
            ma[k][i]:=ma[k][j];
            ma[k][j]:=buf;
          end;
        buf:=ZeroCount[i];
        ZeroCount[i]:=ZeroCount[j];
        ZeroCount[j]:=buf;
     end;
writeln('Final matrix:');
for i:=1 to n do
begin
  for j:=1 to m do
    write(ma[i][j]:4);
  writeln;
end;
end.

Пример работы программы:
Matrix:
   2   0   0  -1
   0   0   1  -1
  -2  -2   1  -2
Count of zero elements:
1:1
2:2
3:1
4:0
Final matrix:
   0   2   0  -1
   0   0   1  -1
  -2  -2   1  -2
4,6(74 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ