Составте программу, которая предоставляет пользователю выбор жилплощади 35 кв.м. или 50 кв.м., в зависимости от выбора компьютер выводит стоимость квартиры.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (a,b,n):=ReadInteger3('Интервал [a,b] и число элементов;'); var M:=ArrRandom(n,a,b); M.Println; // заполнение и вывод массива var k:=n div 2; // середина массива M:=(M[:k].OrderBy(t->t)+M[k:].OrderByDescending(t->t)).ToArray; M.Println end.
Задание невозможно решить!! Буква а может быть закодирована как 010, так и 0. Рассмотрим оба случая: 1) А-010, Р-01, К-00 Тогда, когда мы начнем расшифровывать последовательность получится, что первая буква К, а дальнейшая расшифровка невозможна. 2) А - 0, Р-1001, К-0001 Тогда, когда мы начнем расшифровывать заданную последовательность получится, что первые две буквы АА, а дальнейшая расшифровка невозможна.
Единственное более или менее адекватное решение : А-0, Р-100, К-10001 Тогда расшифровка - ААК. Но, во-первых, такого ответа нет в вариантах, а, во-вторых, тогда и шифровка согласных букв имеет разную длину. Думайте сами, решайте сами.. Возможно, Вы опечатались?
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,n):=ReadInteger3('Интервал [a,b] и число элементов;');
var M:=ArrRandom(n,a,b); M.Println; // заполнение и вывод массива
var k:=n div 2; // середина массива
M:=(M[:k].OrderBy(t->t)+M[k:].OrderByDescending(t->t)).ToArray;
M.Println
end.
Примеры
Интервал [a,b] и число элементов; -50 50 19
-12 -45 5 28 -43 -45 21 4 -44 49 7 -30 1 24 -23 2 -17 -48 32
-45 -45 -44 -43 -12 4 5 21 28 49 32 24 7 2 1 -17 -23 -30 -48
Интервал [a,b] и число элементов; 0 1 30
0 0 1 1 1 1 0 1 0 0 1 0 1 0 0 0 0 0 1 0 0 0 1 0 1 1 0 1 1 1
0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0