// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var a:array[1..20] of integer;
Randomize;
for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
var b:=Range(2,20,2).Select(i->a[i]);
Writeln('Элементы с четными индексами по возрастанию');
b.Sorted.Println;
Writeln('Элементы с четными индексами по убыванию');
b.SortedDescending.Println;
end.
<u><em>Тестовое решение:</em></u>
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40
Import mathn=int(input("Введите скорость"))m=int(input("Введите путь "))print(math.ceil(m/n))Python 3.Среда разработки IDLE
Var s:string; i:integer; m:set of char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
i:=1;
while i<=length(s) do
if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;
writeln(s);
end.
Пример:
Введите слово:
электрификация
электрифаця
Для кодирования использовалась восьмибитная кодировка, значит на один символ приходится 1 байт памяти.
Количество символов равно 256*40*60
Каждый символ равен 1 байту, значит объем текста в байтах равен количеству символов.
Переведём объем в килобайты:
(256*40*60) / 1024 = (2^8*40*60) / 2^10 = 2^(-2)*40*60 = 600 Кбайт
<span>P.S.: Сильно хотел написать ответ во¬т т¬ак, чт¬о б¬ы н¬ел¬ьз¬я б¬ыл¬о п¬ро¬чи¬тат¬ь, но Alviko не оценит:(</span>