var i:real;
begin
i:=4.4;
while i<6.5 do begin
writeln(i);
i:=i+0.2;
end;
end.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
<u>Пример</u>
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
Имеется исполнитель "чёрный ящик", алгоритм вход: 12, 327, 500, 66, 1235, 41, 3355, 98, 89, 809 выход: 23, 438, 611, 77, 2345, 5
Anderson Miller
Ко всем входным данным добавляются числа 11, 111 или 1111, в зависимости от количества разрядов во исходном числе:
12 + 11 = 23
327 + 111 = 438
500 + 111 = 611
66 + 11 = 77
аналогично для остальных
значит 739 + 111 = 850
1) Сначала найдём количество бит требуемых для кодирования одного символа по формуле:
N = 2^i (i - округляем с достатком)
где N - это количество символов в алфавите,i - это количество бит требующихся для кодирования одного символа в тексте
2)Считаем количество символов в тексте и умножаем его на i