Паук-парк-пара-фара-фура-мура-муха
Во 2 задание где принт изображён там команда напечатать если к компьютеру подключён принтер то что есть в программе можно напечатать там в 3 задании уходшение зрения надо отметить
Здесь 4 символа, каждый символ состоит из 8 цифр
Измените тип переменных 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.