Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов; если она чётна, то в начало цепочки символов добавляется символ А, а если нечётна, то последний символ цепочки удаляется. В полученной цепочке символов каждая буква заменяется буквой, следующей за ней в русском алфавите (А — на Б, Б — на В и т. д., а Я — на А). Получившаяся таким образом цепочка является результатом работы алгоритма. Например, если исходной была цепочка СОН, то результатом работы алгоритма будет цепочка ТП, а если исходной была цепочка УМ, то результатом работы алгоритма будет цепочка БФН.
Дана цепочка символов ПОЛЁТ. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)? Русский алфавит: .
Задания Д15
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов; если она чётна, то дублируется левый символ цепочки, а если нечётна, то в конец цепочки добавляется буква П. В полученной цепочке символов каждая буква заменяется буквой, стоящей перед ней в русском алфавите (А — на Я, Б — на А и т. д., Я — на Ю). Получившаяся таким образом цепочка является результатом работы описанного алгоритма.
Например, если исходной была цепочка УРА, то результатом работы алгоритма будет цепочка ТПЯО, а если исходной была цепочка КРОТ, то результатом работы алгоритма будет цепочка ЙЙПНС.
Дана цепочка символов НЕГА. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)?
Русский алфавит:
program pr10;
uses crt;
var
i: integer;
t: real; // рабочая переменная
i: byte; // счетчик массива
k: byte; // параметр цикла
a: array[1..15] of real;
n: byte; // размерность цикла
begin
clrscr;
write('введите размерность: ');
readln(n);
writeln('введите ',n,' элементов');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив: ');
for i: =1 to n do
write(a[i]: 5: 1,' ');
readln;
// блок обработки
for k: =1 to n do
for i: =1 to n-k do
if(a[i]> a[i+1]) then
// перестановка
begin
t: =a[i];
a[i]: =a[i+1];
a[i+1]: =t;
end;
writeln('отсортированный массив: ');
for i: =1 to n do
write(a[i],' ');
writeln;
readln;
end.
я хз как правильно проверить простое число или нет. вот код, который просто сортирует массив по возрастанию.
type cl = class
a: integer;
constructor create(b: integer);
procedure setval(b: integer);
function getval: integer;
procedure sq;
end;
constructor cl.create(b: integer);
begin
a : = b;
end;
procedure cl.setval(b: integer);
begin
a : = b;
end;
function cl.getval: integer;
begin
getval : = a;
end;
procedure cl.sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('error');
end;
var
obj: cl;
a : integer;
begin
write('a = ');
readln(a);
obj : = cl.create(a);
obj.sq;
readln;
obj.destroy;
end.