5.Некоторый алгоритм из одной цепочки символов - вопрос №211276545 от abdrahmanova136 15.01.2023 14:55

Question

Информатика: 5.Некоторый алгоритм из одной цепочки символов получает новую це почку следующим образом. Сначала вычисляется длина исходной цепочки символов; если она чëтна, то удаляется первый символ цепочки, а если нечётна, то в конец цепочки добавляется символ Н. В полученной цепочке символов каждая буква заменяется буквой, следующей за ней в русском алфавите (А на Б. Б на В и т. д., а я на А). Получившая ся таким образом цепочка является результатом работы алгоритма. Например, если исходной была цепочка НОГА,

abdrahmanova136 · Answer

Первая задача:

var

i:integer;

a: array [1..7] of String;

begin

a[1]:='мама';

a[2]:='ель';

a[3]:='парта';

a[4]:='каникулы';

a[5]:='прыжок';

a[6]:='ура';

a[7]:='прикол';

for i:=1 to 7 do

writeln(a[i],' ', Length(a[i]));

end.

Вторая задача:

var

i, j, c:integer;

a:array [1..8] of integer;

begin

for i:=1 to 8 do

begin

writeln('Введите эл. массива A[', i, ']');

readln(a[i]);

end;

writeln();

for i:=1 to 8 do

write(a[i], ' ');

for i:=1 to 7 do

for j:=i+1 to 8 do

if a[i]>a[j] then

begin

c:=a[i];

a[i]:=a[j];

a[j]:=c;

end;

writeln();

for i:=1 to 8 do

write(a[i], ' ');

end.