Информатика, опубликовано 2018-08-22 18:15:04 by Гость
напишите программу, которая выводит на экран значение n! включая следующую функцию function factorial (n:integer):integer; var p,i:integer; begin p:=1; for i:=1 to n do p:=p*i; factorial:=p; end;
Ответ оставил Гость
Var n:integer;
ch:char;
function factorial (n:integer):longint;
var p,i:integer;
begin
p:=1;
for i:=1 to n do p:=p*i;
factorial:=p;
end;
begin
write (N = );
readln (n);
writeln (Factorial: ,factorial(n));
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на