Переменная С примет значение: 3
Решение: в информатике int это Integer(целое число). Когда мы хотим извлечь из неумелого числа значение int мы возьмём его целую часть. Здесь 3.86= 3 + 0.86
как видим, целая часть это число 3
Мышь, тачпад и трекбол выполняют функцию комп.мыши, получается, что лишнее - клавиатура
Измените тип переменных 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.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
procedure P(n:integer);
begin
n.ToString.Print(NewLine)
end;
begin
P(ReadInteger('n='))
end.
<u><em>Тестовое решение:</em></u>
n= 123407
1
2
3
4
0
7