Измените тип переменных 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.
Ответ:
знакоместо-определяется рядом и колонкой знака на алфавитноцифровом дисплее
Объяснение:
Program n;
uses crt;
var i:integer;
begin
for i:=-10 to 10 do writeln(i:4, abs(i):4);
<span>end. </span>
(Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт)
Объем DVD M = 4.7*1024*1024 Кб = 4 928 307.2 Кбайт
Всего фото на диске N = M / 500Кбайт = 4 928 307.2 Кбайт / 500Кбайт = 9 856.6144 ~ 9 856 (округлили до целых)
Время просмотра t = N * 5c = 49 280 c = 13.6(8) часов