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

117

389

Посмотреть ответы 2

Ответы на вопрос:

аниметян3

Информатика

4,6(87 оценок)

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.

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.