Компьютер выдает ошибку: нельзя преобразовать тип real к integer в строке c : = xfact(n)/ xfact(n - k)* xfact(k); исправить 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 n,k,c: real; begin writeln('введите число n: '); readln(n); writeln('введите число k: '); readln(k); c : = xfact(n)/ xfact(n - k)* xfact(k); writeln('c = ',c); end.
143
440
Ответы на вопрос:
Измените тип переменных 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.
Популярно: Информатика
-
batrazmargit09.03.2023 19:13
-
TANYA88993322.03.2022 15:11
-
senyazer06.09.2021 02:30
-
1Яблочко130.07.2022 07:39
-
ruslankira1123427.11.2020 17:52
-
KOTIK2281112.03.2022 09:24
-
kViktoria207714.08.2022 03:11
-
vt50510.02.2021 11:15
-
babka530.11.2020 08:04
-
bogdanlinchenk28.11.2021 23:40