Каждый символ содержит 8 бит, а в слове информатика 11 символов, поэтому 11*8=88 бит
..
......
.....................................................
Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,1,10); a.Println;
a:=a.Reverse.ToArray; a.Println;
end.
Пример:
n = 10
5 4 2 1 3 8 2 2 5 2
2 5 2 2 8 3 1 2 4 5