Размещено 4 года назад по предмету
Информатика
от bloxaxa
ПАСКАЛЬ. Выдает ошибку в 10 строке "Ожидался порядковый тип". Как исправить? . . . program SOCHET; var a, b, c, n, i, j, l: real; var factorial, factorial1, factorial2: longint; begin writeln ('Введите число, из которого высчитывается число сочетаний'); readln (a); writeln ('Введите число, по которому высчитывается число сочетаний'); readln (b); factorial := 1; for i:=2 to a do factorial := factorial * i; a:=factorial; factorial1 := 1; for j:=2 to b do factorial1 := factorial1 * j; b:= factorial1; factorial2 := 1; for l:=2 to (a-b) do factorial2 := factorial2 * l; c:=factorial2; n:=a/b*c; writeln ('Число сочетаний равно ', n); end.