Измените тип переменных 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.
1) 2^85=100...0 (2cc) (1 и 85 нулей)
8^25=(2^3)^25=2^75 =100..0 (2cc) (1 и 75 нулей)
4^6=2^12=100...0 (2cc) (1 и 12 нулей)
8=2^3=1000 (2cc) (1 и 3 нуля)
2) 2^12 +2^3= 1000000000000+1000=1 0000 0000 1000 (2cc) (две единицы)
3) 2^85-2^75= 11 1111 11110000...0 (десять единиц и 75 нулей)
4) 10 единиц+2 единицы=12 единиц
ответ 12
Const n=4; m=5;
var a:array [1..n,1..m] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:6);
end;
writeln;
end;
min:=a[1,1]; imin:=1;jmin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<min then
begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min=a[',imin,',',jmin,']=',min);
end.
Пример:
Исходный массив:
5 8 2 -5 -4
1 -10 9 1 -4
8 2 -6 -4 -4
8 7 3 2 2
min=a[2,2]=-10