Вася придумал робота-шифратора, и сейчас пишет для него программы. шифратор работает со строками. до сегодняшнего дня робот умел выполнять только команду 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 вторая выполняется для полученной строки и так далее). какая строка в итоге получилась?

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

тусикк

21.09.2022 20:10

Надо. запишите внутреннее представление следующих десятичных чисел, используя 16-разрядную ячейку: а) -15098 б) 6524 в) -28987...

Roguesquid

21.09.2022 20:10

Текст закодирован кодовой таблицей кои-8. определить объем информации выражения в битах: тысячи путей ведут к заблуждению, к истине- только один....

Vasilchenkodan

13.07.2020 07:05

Определи тип данных для следующих значений: -10, -89731, 456789, 0...

Q778

20.10.2021 19:55

Определи значения переменных по блок-схеме и запиши их в таблицу...

borz2006

22.05.2021 13:16

Выбери утверждения, содержащие в себе составные условия...

Стешулький361953

13.05.2023 01:25

Решить на мове pascalabc программа считывает двузначное число и выводит через пробел каждую цифру отдельно. входные данные 23 выходные данные 2 3...

Marksh

13.05.2023 01:25

Нужно решить на мове pascalabc вычислить количество цифр целого неотрицательного числа n. входные данные #1 12343 выходные данные #1 5...

ehidna666

08.07.2020 07:11

Выполнить сложение , если можно с разъяснением -77 и 15 77 и -15 тема прямой , обратный и доп коды...

e12esa

14.08.2021 23:04

Напишите программу для решения используя div и mod 1.задано двухзначное число найдите среднее арифметическое цифр числа 2.задано двухзначное число найдите разность между количеством...

annwolf246

19.04.2023 04:33

Дан массив размера n. вставить элемент с нулевым значением перед минимальным и после максимального элемента массива.! паскаль...

Ответ:

maral1505

17.08.2021 15:20

1.
begin
var a:=ArrRandom(10,1,50); a.Println;
var c:=ReadInteger('c = ');
var s:=a.Where(x->x>c);
if s.Count>0 then
writeln('Среднее арифметическое элементов > ',c,' = ',s.Average)
else writeln('В массиве нет искомых элементов');
end.

Пример:
8 2 22 16 24 34 29 16 1 26
c = 50
В массиве нет искомых элементов

2.
const n=10;
var a:array[1..n] of integer;
c,i,s,k:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
write('c = ');
readln(c);
s:=0; k:=0;
for i:=1 to n do
if a[i]>c then begin s:=s+a[i]; k:=k+1; end;
if k>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s/k:5:2)
else writeln('В массиве нет искомых элементов');
end.

Пример:
39 38 43 25 45 16 16 12 35 16
c = 40
Среднее арифметическое элементов > 40 = 44.00

0,0(0 оценок)

Ответ:

Taticyan707

11.03.2023 09:13

Var a: array of real;
i,n,m,k,p: integer;
s: real;
begin
write('n = '); readln(n);
setlength(a,n);
s:=1;
randomize;
writeln('массив:');
for i:=0 to n-1 do
begin
a[i]:=random(200)/1000;
s:=s*a[i];
write(a[i]:5:3,' ');
end;
writeln;
s:=power(s,1/n);
p:=0; m:=0; k:=0;
writeln('среднее геометрическое: ',s);
for i:=0 to n-1 do
begin
if a[i]<s then inc(m);
if a[i]>s then inc(k);
if a[i]=s then inc(p);
end;
writeln('меньше: ',m,' равно: ',p,' больше: ',k);
end.

n = 10
массив:
0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017
среднее геометрическое: 0.0854754255570728
меньше: 3 равно: 0 больше: 7

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку