<span>software (программное обеспечение)</span>
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
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
01000001.10000000.11111111.00001100
Все четыре числа переводим в двоичную систему и каждое переведенное число записываем в восьмиразрядном виде
Например 65(10)
65 делим на 2 (берем только целую часть без округления) Получаем 32 Затем 32 делим на 2 и т.д.
65 32 16 8 4 2 1
1 0 0 0 0 0 1 если четное, пишем 0
65 = 1000001 = 01000001
Староста это глава в классе.Тот кто смотрит за посещаемостью.Помогает тем кто плохо учится.Староста класса-избарнный классом и учителем.
