1) Вычислить P=N!, где N вводится с клавиатуры с помощью трех видов цикла (1) repeat 2) while 3) For 2) модифицировать эти программы введя проверку N, если N>7, то вывести фразу"превышение допустимых значений" В другом случае подсчитать N!

1)

program factorial;

var

a, n, i:integer;

begin

writeln ('Вычисление факториала P=N!') ;

write ('Введите значиние N: ') ; readln (n) ;

a:=0;

for i:=1 to n do a:=a+i;

writeln ('P=', a) ;

end.

2)

program factorial;

var

a, n, i:integer;

begin

writeln ('Вычисление факториала P=N!') ;

write ('Введите значиние N: ') ; readln (n) ;

if n>7 then writeln ('Превышение допустимых значений')

else

begin

a:=0;

for i:=1 to n do a:=a+i;

writeln ('P=', a) ;

end;

end.