Информатика, опубликовано 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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.