Вася придумал робота-шифратора, и сейчас пишет для него программы. шифратор работает со строками. до сегодняшнего дня робот умел выполнять только команду cut(x), она означает, что нужно взять поданную на вход роботу строку, разрезать ее пополам после символа с номером x, символы второй части записать в обратном порядке, затем две части переставить местами и склеить обратно в целую строку (символы строки нумеруются слева направо начиная с 1). например, если робот работает со строкой алгоритм и выполняет команду cut(4), то результатом его работы будет строка мтиралго. если после этого робот выполнит команду cut(1), то получится строка огларитм. сегодня вася написал новую команду mcut. например, mcut(4, 1, 3) означает, что робот сначала выполняет команду cut(4), затем для получившейся строки команду cut(1), затем для получившейся строки команду cut(3). на вход роботу подали строку абвгдежз, после чего он выполнил команду mcut(3, 7, 6, 5, 1) 2019 раз подряд (после первого выполнения команды mcut вторая выполняется для полученной строки и так далее). какая строка в итоге получилась?
Объяснение:
Привет
Привет
Как тебя зовут
Меня зовут Марина а тебя
Я Саша приятно познакомиться
Саша я недавно приехала и застряли только выучила ваш язык можешь рассказать мне про великих писателей
Хорошо,я тебе расскажу некоторых:А.С.Пушкин, Лев Толстой, Абай Кунанбаев
Можешь рассказать про их произведение чтобы я могла лучше запомнить а в дальнейшем их почитать
Конечно, Александр Сергеевич Пушкин писал-"сказка о золотой рыбке"," у Лукоморья дуб зелёный (стихотворение"), Абай Кунанбаев писал-"лова назидания","книга знаний"Лев Толстой писал-(сказки)"волк и старуха","воробей"
мне было очень интересно тебя слушать
Я был рад
До встречи
пока
Программа:
Pascal:
1.
const N = 10;
var
pol, otr, nul, i: integer;
arr: array[1..N] of integer;
begin
randomize;
for i := 1 to N do begin
arr[i] := random(-10, 10);
if arr[i] > 0 then inc(pol);
if arr[i] = 0 then inc(nul);
if arr[i] < 0 then inc(otr);
end;
writeln('Массив: ',arr);
writeln('Положительных чисел: ', pol);
writeln('Нулей: ', nul);
writeln('Отрицательных чисел: ', otr);
end.
2.
const N = 10;
var
t: boolean;
pol, otr, nul, i: integer;
arr: array[1..N] of integer;
begin
randomize;
for i := 1 to N do begin
arr[i] := random(-10, 10);
if arr[i] > 0 then inc(pol);
if arr[i] = 0 then inc(nul);
if arr[i] < 0 then begin
t := True;
inc(otr);
end;
end;
writeln('Массив: ',arr);
writeln('Положительных чисел: ', pol);
writeln('Нулей: ', nul);
writeln('Отрицательных чисел: ', otr);
writeln(t);
end.