9. некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. сначала вычисляется длина исходной цепочки символов; если она нечётна, то дублируется средний символ цепочки символов, а если четна, то в начало цепочки добавляется буква с. в полученной цепочке символов каждая буква заменяется буквой, следующей за ней в алфавите (а - на б, б - на в и т. д., а я - на а). получившаяся таким образом цепочка является результатом работы описанного алгоритма. например, если исходной была цепочка кот, то результатом работы алгоритма будет цепочка лппу, а если исходной была цепочка ваня, то результатом работы алгоритма будет цепочка тгбоа. дана цепочка символов нос. какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды алфавит:

👇

Увидеть ответ

Ответ:

настасимммаа

30.01.2021

НОС
НООС
ОППТ
СОППТ
ТПРРУ

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

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

Ответ:

Abigael

30.01.2021

//PascalABC.NET 3.2 сборка 1318

type
student=record
FIO:string;
age:integer;
CountOf3:integer;
end;

Const
n=3;

Var
ar:array[1..n] of student;

procedure reading();
Var
i:integer;
begin
writeln('ФИО |Возраст | Количество троек');
for i:=1 to n do
begin
read(ar[i].FIO);
write(' ');
read(ar[i].age);
write(' ');
read(ar[i].CountOf3);
writeln;
end;
end;

procedure writing();
Var
i:integer;
begin
writeln('ФИО |Возраст ');
for i:=1 to n do
if ar[i].CountOf3=1 then write(ar[i].FIO,' ',ar[i].age);
end;

begin
reading;
writing;
end.

4,5(23 оценок)

Ответ:

aguanapfel

30.01.2021

//прога на Pascal`e
const
size1 = 12; size2 = 12; size3 = 5;

surnames: array [0..size1-1] of string =
('Петров', 'Иванов', 'Рузвельт', 'Лежебокер', 'Тьюринг', 'Земляника', 'Пугачев', 'Бухаров', 'Путин', 'Куклачев', 'Герасимов', 'Михайлов');

names : array [0..size2-1] of string =
('Петр', 'Иван', 'Франклин', 'Роман', 'Алан', 'Виктор', 'Дмитрий', 'Кузьма', 'Денис', 'Ахмед', 'Владимир', 'Станислав');

groups : array [0..size3-1] of string =
('Историки', 'Археологи', 'Филологи', 'Математики', 'Ораторы');

type marks = record
m2, m3, m4, m5: byte;
end;

student = record
Surname: string[20];
name: string[20];
group: string[20];
GR: integer;
mark: marks;
end;

var
i: byte;
stud: array of student;

procedure randomSTUD ();
var i: byte;
begin
randomize;

setLength (stud, random(30)+1);
for i:=0 to length (stud)-1 do
begin
stud[i].Surname:=surnames[random (size1)];
stud[i].name:=names [random (size2)];
stud[i].group:=groups [random (size3)];
stud[i].GR:=1999 - random (6);
stud[i].mark.m2:=random (3);
stud[i].mark.m3:=random (3);
stud[i].mark.m4:=random (3);
stud[i].mark.m5:=random (3);
end;
end;

procedure writeofSTUD ();
var i: byte;
begin
writeln ('Студентов: ', length(stud));
for i:=0 to length (stud)-1 do
begin
writeln ();
writeln ('');
writeln ('Студент №', i+1);
writeln ('Фамилия: ', stud[i].Surname);
writeln ('Имя: ', stud[i].name);
writeln ('Группа: ', stud[i].group);
writeln ('Год рождения: ', stud[i].GR);
writeln ('Оценки: ');
writeln ('Кол-во двоек: ', stud[i].mark.m2);
writeln ('Кол-во троек: ', stud[i].mark.m3);
writeln ('Кол-во четверок: ', stud[i].mark.m4);
writeln ('Кол-во пятерок: ', stud[i].mark.m5);
end;
end;

begin
randomSTUD;
writeofstud;
end.

4,8(86 оценок)

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

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

12.01.2021

Как произвести расчет заработной платы в Excel...

Дом-и-сад

11.12.2022

Как избавиться от скунсов: лучшие способы...

Семейная-жизнь

06.02.2022

Как выйти замуж в зале суда: подробное руководство...

Здоровье