1 байт = 8 бит
1 Кб = 1024 байт = 8192 бит
40960 бит = 40960/8192 Кб = 5 Кб
<span>var
factorial:
longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
readln;
end.</span>
<em>// PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var c:=ArrRandom(ReadInteger('k='),1,99); c.Println;
var m:=c.Average;
Writeln('Среднее арфифметическое равно ',m);
Writeln('Кол-во элементов, больших ср.арифм: ',c.Where(x->x>m).Count)
end.
<u>Пример</u>
k= 15
74 9 96 97 77 41 51 29 24 26 27 53 5 25 76
Среднее арфифметическое равно 47.3333333333333
Кол-во элементов, больших ср.арифм: 7