Напишите программу на pascal, вычисляющую факториал введенного числа n!

Question

Информатика

Саня

18 апреля, 13:25

Напишите программу на pascal, вычисляющую факториал введенного числа n!

+4

Ответы (2)

Знаете ответ на вопрос?

Ардалион · Answer 1

{}

var

n : byte;

function fact (a: byte) : uint64;

var pz : uint64;

i : byte;

begin

pz:=1;

for i:=1 to a do pz:=pz*i;

fact:=pz;

end;

begin

repeat

write ('Введите n : ') ;

readln (n) ;

until n in [0 ... 20];

write ('n! = ', fact (n)) ;

end.

Греция · Answer 2

Program z1;

uses crt;

var n, i, s: integer;

begin

read (n) ;

s : = 1;

for i : = 1 to n do

s : = s * i;

writeln (s) ;

end.