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

Question

Информатика

Кельтск

25 февраля, 23:20

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

+5

Ответы (2)

Знаете ответ?

Витаня · Answer 1

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.

Даниил · Answer 2

{}

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.