Вопрос по информатике:
КОМПЬЮТЕР ВЫДАЕТ ОШИБКУ: НЕЛЬЗЯ ПРЕОБРАЗОВАТЬ ТИП 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.
- 18.03.2018 08:41
- Информатика
- remove_red_eye 15069
- thumb_up 40
Ответы и объяснения 1
Измените тип переменных 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.
- 19.03.2018 21:37
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.