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

Предыдущий
вопрос Следующий
вопрос

1) Пример программы на Pascal с использованием цикла repeat:

program Factorial
var
N, P, i: Integer
begi
write('Введите значение N: ')
readln(N)
if N > 7 the
writeln('Превышение допустимых значений'
els
begi
P := 1
i := 1
repea
P := P * i
i := i + 1
until i > N
writeln('Факториал числа ', N, ' равен ', P)
end
end.

2) Пример программы на Pascal с использованием цикла while:

program Factorial
var
N, P, i: Integer
begi
write('Введите значение N: ')
readln(N)
if N > 7 the
writeln('Превышение допустимых значений'
els
begi
P := 1
i := 1
while i <= N d
begi
P := P * i
i := i + 1
end
writeln('Факториал числа ', N, ' равен ', P)
end
end.

3) Пример программы на Pascal с использованием цикла for:

program Factorial
var
N, P, i: Integer
begi
write('Введите значение N: ')
readln(N)
if N > 7 the
writeln('Превышение допустимых значений'
els
begi
P := 1
for i := 1 to N d
begi
P := P * i
end
writeln('Факториал числа ', N, ' равен ', P)
end
end.