5. некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. сначала в полученной цепочке символов каждую букву заменяем буквой, следующей за ней в алфавите (а - на б, б - на в и т.д., а я - на а далее вычисляем длину полученной цепочки символов, если она чётная, то дописываем символ а в начало цепочки, а если нечётна, то вместо первого и последнего символа записываем а. полученная таким образом цепочка является результатом работы алгоритма. например, если исходной была цепочка там, то результатом работы алгоритма будет цепочка аба, а если исходной была цепочка рн, то результатом работы алгоритма будет цепочка асо. дана цепочка символов март. какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т.е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)? алфавит:
Ответы
АОВТА будет вот такая вот цепочка букв
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var m:=ReadInteger('число строк ');
var n:=ReadInteger('число столбцов ');
var a:array[,] of real; SetLength(a,m,n);
Randomize;
var p:=1.0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
a[i,j]:=89*Random+10;
Write(a[i,j]:0:5,' ');
if j mod 2=0 then p*=a[i,j]
end;
Writeln
end;
Writeln(p)
end.
Тестовое решение:
число строк 4
число столбцов 3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9
begin
var m:=ReadInteger('число строк ');
var n:=ReadInteger('число столбцов ');
var a:array[,] of real; SetLength(a,m,n);
Randomize;
var p:=1.0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
a[i,j]:=89*Random+10;
Write(a[i,j]:0:5,' ');
if j mod 2=0 then p*=a[i,j]
end;
Writeln
end;
Writeln(p)
end.
Тестовое решение:
число строк 4
число столбцов 3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var m:=ReadInteger('число строк ');
var n:=ReadInteger('число столбцов ');
var a:array[,] of real; SetLength(a,m,n);
Randomize;
var p:=1.0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
a[i,j]:=89*Random+10;
Write(a[i,j]:0:5,' ');
if j mod 2=0 then p*=a[i,j]
end;
Writeln
end;
Writeln(p)
end.
Тестовое решение:
число строк 4
число столбцов 3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9
begin
var m:=ReadInteger('число строк ');
var n:=ReadInteger('число столбцов ');
var a:array[,] of real; SetLength(a,m,n);
Randomize;
var p:=1.0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
a[i,j]:=89*Random+10;
Write(a[i,j]:0:5,' ');
if j mod 2=0 then p*=a[i,j]
end;
Writeln
end;
Writeln(p)
end.
Тестовое решение:
число строк 4
число столбцов 3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сетевые протоколы -anmqweoooIPX
Автор: inris088
Какой это вид схемы? ИНФОРМАТИКА 8 Класс
Автор: e-s-i-k
хоч одно сделать +25 за решение
Автор: coalajk
Какое слово можно составить из букв в к а р д?
Автор: Olia72
Оператор write ('name'); выводит на экран
Автор: ekkim310
Текст мрія ігоря сікорського яке питання ви хотіли б поставити автору текст
Автор: uisfbu7777733