Некоторый ал¬го¬ритм из одной це¬поч¬ки сим¬во¬лов по¬лу¬ча¬ет новую це¬поч¬ку сле¬ду¬ю¬щим образом. Сна¬ча¬ла вы¬чис¬ля¬ет¬ся длина ис¬ход¬ной це¬поч¬ки символов; если она нечётна, то дуб¬ли¬ру¬ет¬ся сред¬ний сим¬вол це¬поч¬ки символов, а если чётна, то в се¬ре¬ди¬ну це¬поч¬ки до-бав¬ля¬ет¬ся буква А. В по¬лу¬чен¬ной це¬поч¬ке сим¬во¬лов каж¬дая буква за¬ме¬ня¬ет¬ся буквой, сле-ду¬ю¬щей за ней в рус¬ском ал¬фа¬ви¬те (А — на Б, Б — на В и т. д., а Я — на А). По¬лу¬чив¬ша¬я-ся таким об¬ра¬зом це¬поч¬ка яв¬ля¬ет¬ся ре¬зуль¬та¬том ра¬бо¬ты алгоритма.
Например, если ис¬ход¬ной была це¬поч¬ка КОТ, то ре¬зуль¬та¬том ра¬бо¬ты ал¬го¬рит¬ма будет це¬поч¬ка ЛППУ, а если ис¬ход¬ной была це¬поч¬ка ВАНЯ, то ре¬зуль¬та¬том ра¬бо¬ты ал¬го¬рит¬ма будет це¬поч¬ка ГББОА.
Дана це¬поч¬ка сим¬во¬лов ЛЮК. Какая це¬поч¬ка сим¬во¬лов получится, если к дан¬ной це-поч¬ке при¬ме¬нить опи¬сан¬ный ал¬го¬ритм два¬жды (т. е. при¬ме¬нить ал¬го¬ритм к дан¬ной цепочке, а затем к ре¬зуль¬та¬ту вновь при¬ме¬нить алгоритм)? Рус¬ский алфавит:

Показать ответ

Ответ:

МашаКотик2004

24.02.2023 02:10

Const n=3; m=4;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,'] =');
readln(a[i,j]);
end;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 2 = 0 then a[i,j]:=a[i,j] div 2;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.

Пример:
a[1,1] =45
a[1,2] =32
a[1,3] =76
a[1,4] =12
a[2,1] =85
a[2,2] =19
a[2,3] =35
a[2,4] =74
a[3,1] =65
a[3,2] =37
a[3,3] =83
a[3,4] =67
Исходный массив:
45 32 76 12
85 19 35 74
65 37 83 67
Полученный массив:
45 16 38 6
85 19 35 37
65 37 83 67

0,0(0 оценок)

Ответ:

princesslena06

24.02.2023 02:10

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

var
ar: array of array of integer;
n, m, i, j: integer;

begin
read(n, m);
setlength(ar, n);
for i := 0 to n - 1 do
    setlength(ar[i], m);
writeln('Enter matrix:');
for i := 0 to n - 1 do
begin
    writeln;
    for j := 0 to m - 1 do
      read(ar[i, j]);
end;
writeln;
writeln('First matrix:');
for i := 0 to n - 1 do
begin
    writeln;
    for j := 0 to m - 1 do
      write(ar[i, j]:4);
end;
writeln;
writeln('Final matrix:');
for i := 0 to n - 1 do
begin
    writeln;
    for j := 0 to m - 1 do
    begin
      if ar[i, j] mod 2 = 0 then ar[i, j] := ar[i, j] div 2;
      write(ar[i, j]:4);
    end;
end;
end.

Пример ввода:
2
3
Enter matrix:

1
2
3

4
5
6
Пример вывода:
First matrix:

   1   2   3
   4   5   6
Final matrix:

   1   1   3
   2   5   3

0,0(0 оценок)

Популярные вопросы: Информатика