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

Кот учёный из поэмы "руслан и людмила" отправил телеграмму. 40 44 37 49 29 30 29 39 33 11 17 14 37 17 37 29 35 29 56 29 37 43 39 33 71 16 33 40 88 30 29 59 71 29 88 29 55 44 30 16 , 49 29 39 56 51 71 71 33 41 33 40 32 29 88 44 40 27 30 16 . 49 29 40 51 14 33 71 27 24 назовите существа, упомянутых в телеграмме. подсказка: кот хотя и учёный, но не различает буквы е и ё.

👇
Ответ:
Huysosimoy
Huysosimoy
22.10.2020
Если с котом то вроде 12
4,7(76 оценок)
Открыть все ответы
Ответ:
лика03072017
лика03072017
22.10.2020

Нужный язык программирования не указан. Наверное, тебе подойдет Си :с

int n, tmp;           // переменные для длины массива и временная

int count = 0;     // переменная-счетчик для количества перестановок

scanf_s("%d", &n;)       // считываем количество элементов в массиве

int arr[n];               // объявляем массив из n элементов

for (int i = 0; i < n; i++) {          // формируем массив

       scanf_s("%d", arr[i]);

}

for (int i = 0; i < n; i++)  {          // сравниваем два соседних элемента (j и j+1)

     for (int j = 0; j < n - i - 1; j++)  {

                if (arr[j] > arr[j + 1])  {   // свапаем элементы местами, если порядок неверный через временную переменную

                        tmp = arr[j];

                        arr[j] = arr[j + 1];

                        arr[j + 1] = tmp;

                        count++;          // увеличиваем счетчик перестановок

                      }

               }

      }

ptintf("%d", count);         //выводим количество перестановок

4,7(29 оценок)
Ответ:
diassssssss
diassssssss
22.10.2020
Магический квадрат с n сторон

const
  mn = 16;
var
  p: Boolean;
procedure Swap(var a, b: Integer);
var
T: Integer;
begin
T := a; a := b; b := T
end;
procedure CreateMagic(n: Integer);
var
i, j, k, s, b, r, m: Integer;
a: Array[1.. mn, 1.. mn] Of Integer;
begin
  p := True; 
if Odd(n) Then
begin
i := 1; j := Succ(n div 2);
for k := 1 To Sqr(n) do
begin
a[i, j] := k;
if k mod n = 0 Then Inc(i)
Else
begin
Dec(i); Inc(j);
if i = 0 Then i := n;
if j > n Then j := 1
end
end;
  end
Else
if n mod 4 = 0 Then
begin
k := 1;
for i := 1 To n Do
for j := 1 To n Do
begin
a[i, j] := k; Inc(k)
end;
j := 2; m := n div 2;
for i := 1 To m Do
for k := 1 To m Div 2 Do
begin
if j = Succ(m) Then j := 2
Else
if j = (m + 2) Then j := 1;
s := Succ(n - i); b := Succ(n - j);
Swap(a[i, j], a[s, b]);
Swap(a[i, b], a[s, j]);
Inc(j, 2)
end
  end
Else
if n <> 2 Then
begin
k := 1;
for i := 1 To n Do
for j := 1 To n Do
begin
a[i, j] := k; Inc(k)
end;
  r := Pred(n div 2) div 2; m := n div 2;
for i := 1 To m Do
begin
j := i;
for k := 1 To r Do
begin
if j > m Then j := 1;
s := Succ(n - i); b := Succ(n - j);
Swap(a[i, j], a[s, b]);
Swap(a[i, b], a[s, j]);
Inc(j)
end
  end;
i := 1;
for k := 1 To m Do
begin
if j > m Then j := 1;
s := Succ(n - i);
Swap(a[i, j], a[s, j]);
Inc(i); Inc(j)
  end;
i := 1; j := r + 2;
for k := 1 To m Do
begin
if j > m Then j := 1;
b := Succ(n - j);
Swap(a[i, j], a[i, b]);
Inc(i); Inc(j)
end
  end
  Else p := False;
if p Then
begin
for i := 1 To n Do
begin
for j := 1 To n Do
Write(a[i, j]: 4);
WriteLn
end
end
Else
WriteLn( 'do not exists' )
end;
var
  n: Integer;
begin
WriteLn('n = '); ReadLn(n);
  CreateMagic(n);
end.
4,5(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ