Мистер Фокс разгадывает загадку. На бумаге должно быть 9 чисел в таблице 3 на 3. Все числа различаются друг от друга. Случилась неприятность, на центральное поле попала вода. После этого прочесть её никак не получается. Мистер Фокс знает, какие действия над числами совершались в таблице.
1. Сортируем второй столбец по возрастанию.
2. Прибавляем к первой строке вторую.
3. Сортируем первую строку по возрастанию.
4. Вычитаем из второй строки третью
5. Сортируем все столбцы по убыванию
найти неизвестное число, если после всех действий получилась новая таблица:

👇

Открыть все ответы

Ответ:

Isildur3

17.05.2020

Var txt: string;
    i,k,n,m,mn: integer;
    a: array of string;
begin
write('предложение: '); readln(txt);
k:=0; mn:=length(txt);
for i:=1 to length(txt) do
if txt[i]=' ' then k:=k+1;
k:=k+1;
setlength(a,k+1);
for i:=1 to k-1 do
begin
    a[i]:=copy(txt,1,pos(' ',txt)-1);
    delete(txt,1,pos(' ',txt));
end;
a[k]:=txt;
n:=length(a[1]);
for i:=2 to k do
begin
    if n+length(a[i])<mn then
    begin
      mn:=n+length(a[i]);
      m:=i-1;
    end;
    n:=length(a[i]);
end;
writeln('количество букв: ',mn);
writeln('слова: ',a[m],' ',a[m+1]);
end.

предложение: кот пришел домой в три часа ночи
количество букв: 4
слова: в три

4,4(11 оценок)

Ответ:

Antoniow27

17.05.2020

Код Pascal:

Первая программа:

Const
   N = 13;
Var
   A,B:array[1..N] of integer;
   i,j,m:integer;
   k:byte;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(N);
    Write(' ',A[i])
    End;
WriteLn;
Write('Уникальные элементы:');
m:=0;
For i:= 1 to N do
    Begin
    k:=1;
    For j:= 1 to N do
        if i<>j then
           if A[i]=A[j] then k:=0;
    if k=1 then
       Begin
       m:=m+1;
       B[m]:=A[i];
       End
    End;
For m:=1 to m do
    Begin
    A[m]:=B[m];
    Write(' ',A[m])
    End;
End.

Пример работы программы:

Исходный массив: 3 7 11 11 11 0 9 3 9 9 10 1 4
Уникальные элементы: 7 0 10 1 4

Вторая программа:

Var
   A:array[1..10000] of integer;
   n,Min,Max,B:integer;
Begin
Write('Введите размерность массива: ');ReadLn(n);
Write('Введите массив A(',n,'): ');
For n:= 1 to n do
    Read(A[n]);

Min:=1;
Max:=1;
For n:= 2 to n do
    Begin
    if A[n]<Min then Min:=n;
    if A[n]>Max then Max:=n;
    End;
WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
WriteLn('Max(A) = A[',Max,'] = ',A[Max]);

B:=A[Max];
A[Max]:=A[Min];
A[Min]:=B;

Write('A(',n,'):');
For n:= 1 to n do
    Write(' ',A[n])
End.

Пример работы программы:

Введите размерность массива: 7
Введите массив A(7): 1 3 4 6 7 5 2
Min(A) = A[1] = 1
Max(A) = A[5] = 7
A(7): 7 3 4 6 1 5 2

Третья программа:

Const
   n = 3;
   m = 4;
Var
   A:array[1..n,1..m] of integer;
   B:array[1..m,1..n] of integer;
   i,j:integer;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
WriteLn;
WriteLn('Транспонированная матрица:');
For i:= 1 to M do
    Begin
    For j:= 1 to N do
        Begin
        B[i,j]:=A[j,i];
        Write(B[i,j]:3,' ')
        End;
    WriteLn
    End;
End.

Пример работы программы:

Исходная матрица:
10   3 10   1
-4   9 -9   2
-1   4   2   1

Транспонированная матрица:
10 -4 -1
3   9   4
10 -9   2
1   2   1

4,7(46 оценок)

Это интересно:

Питомцы-и-животные

26.06.2022

5 простых шагов: как разводить гуппи в домашних условиях...

Питомцы-и-животные

25.09.2021

Как безопасно подрезать крылья небольшой птице: Советы экспертов...

Дом-и-сад

17.04.2021

Волшебное искусство выращивания астр: секреты заботы, чтоб цветы радовали глаз долго...

Компьютеры-и-электроника