Закадируйте имя София и Полина​

0000111000101101000110100000111

00010111000101110000011100010111

10001110100001110001011100010000

10000111000101111001011110001010

00000111000101100001011110000111

00010111000101110000011100010111

00010101100001110001011100010000

10000111000101110001011010000111

00010111000011001

Объяснение:

двоичный код

Имя Софья (стар. София) в переводе с древнегреческого языка означает «мудрость», «премудрость», «мудрая». Существует вариант перевода «разумность», «наука». На Русь имя Софья пришло вместе с принятием православия.

.

Имя Полина Полина имеет несколько версий происхождения. Первая из них – самая распространённая – имя Полина произошло от имени древнегреческого бога солнца Аполлона и означает «солнечная» или же «посвящённая Аполлону». Существуют варианты перевода «освобождённая» или же «освобождающая». В этом случае, Полина – это одна из форм имени Аполлинария, которое в русском народе получило наибольшее распространение, нежели полное имя, за счёт более красивого и лаконичного звучания, а также из-за лёгкости произношения для русских людей.

Program Pas02;
uses Crt;
const
  n=20;
var
  a:array[1..n] of real;
  i,k:integer;
  t:real;
begin
  Randomize;
  ClrScr;
  Writeln('Массив случайных чисел');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(31)-15.0;
    Write(a[i]:6:1);
    if a[i]=10.0 then Inc(k)
    end;
  Writeln;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы ');
  k:=0;
  for i:=1 to n do
    if a[i]=0 then begin Inc(k); Write(i,' ') end;
  if k=0 then Writeln('отсутствуют') else Writeln;
  Writeln('Меняем местами элементы 3 и 6');
  t:=a[3];
  a[3]:=a[6];
  a[6]:=t;
  for i:=1 to n do
    Write(a[i]:6:1);
  Writeln
end.

Тестовое решение
Массив случайных чисел
   2.0 -12.0   8.0  -2.0  -1.0   3.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0
Количество элементов, равных 10: 1
Нулевые элементы 12
Меняем местами элементы 3 и 6
   2.0 -12.0   3.0  -2.0  -1.0   8.0 -12.0  -9.0   3.0   9.0  -8.0   0.0  -7.0  -4.0 -12.0  10.0   9.0   5.0  -8.0   6.0

Program Pascal1;
uses Crt;
const
  m=4;
  n=2;
var
  a:array[1..m,1..n] of real;
  i,j,k:integer;
begin
  ClrScr;
  Randomize;
  Writeln('Сформированный масcив');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(31)-15.0;
      Write(a[i,j]:6:1);
      if a[i,j]=10 then Inc(k)
      end;
    Writeln
  end;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы: ');
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]=0 then Write('a[',i,',',j,'] ');
  Writeln
end.

Вариант выполнения: