⇢ НД
Наталья Дмитриева
сколько различных чисел можно написать при помощи цифр 0,1,2..9?помгите обьяснить для чего а и а1?
[PASCAL]
[*]Program Problem1;
[*]var
[*]n, k, a, a1 : longint;
[*]Procedure placement(n, k : integer; var r : longint);
[*]var
[*]i : integer;
[*]begin
[*]r := 1;
[*]for i := 1 to k do r := r*(n - k + i)
[*]end;
[*]begin
[*]write('введите заданное количество цифр '); readln(n);
[*]write('введите из какого числа цифр будет состоять число '); readln(k);
[*]placement(n, k, a);
[*]placement(n - 1, k - 1, a1);
[*]writeln('число различных вариантов равно ', a - a1);
[*]end.[/PASCAL]
