===== PascalABC.NET =====
begin
var n :=Random(100, 999);
n.Println;
Print('Цифры числа:');
while n > 0 do
begin
Print(n mod 10);
n := n div 10;
end;
end.
Информатика))))) P.S. если несложно, отметь мой ответ, как лучший)
A B F
0 0 1
0 1 0
1 0 0
1 1 0
Программа:
var n,k,i: integer;
begin
write('n = ');
readln(n);
// вычисляем число перестановок
k:=1;
for i:=1 to n do k:=k*i;
writeln('k = ',k);
end.
Пример:
n = 3
k = 6