Измените тип переменных n и k на integer:

function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;

var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.

0 0

1 год назад

1281 в 16 системе сколько единиц в 8 системе. Обязательно с расчетами.

IrinaB2

Переводим в двоичную:
1 - 0001
2 - 0010
8 - 1000
1 - 0001
Итого: 1001010000001 (два незначащих нуля у первой единицы убрал)
Переводим в восьмеричную:
001 - 1
000 - 0
010 - 2
001 - 1
1(или 001) - 1
Итого: 11201
Ответ: три единицы

0 0

4 года назад

Вскоре.почти.едва.частично.часто.отдельно.найти два слова тесно связанных между собой.

Котовасик

Частично и часто...спасибо за внимание.

0 0

4 года назад