Чему равно значение переменной после выполнения фрагмента программы? p: =1; for i: =1 to 5 do p: =p*i а. 120 б. 100 в. 50

1*1=1 1*2=2 2*3=6 6*4=24 24*5=120 ответ: 120

Program bb; uses crt; var s,a,b,v,z,i: longint; begin s: =1; {учитываем билет с номером 000000} for i: =1 to 999999 do {перебираем билеты от 000001 до 999999} begin     v: =i;     z: =0;     while z< 3 do   begin z: =z+1; a: =v mod 10 +a; v: =v div 10 end; {считаем сумму последних трех чисел}     while z< 6 do   begin z: =z+1; b: =v mod 10 +b; v: =v div 10 end; {считаем сумму первых трех чисел}     if a=b then s: =s+1;     a: =0;     b: =0; end; writeln(s); readkey; end.

Дело в том, что факториал числа представляет собой довольно большое значение, которое не влазит в ячейку real,  если вводить даже не большие числа. для чисел, не превышающих 170: uses crt; var f: real;     x,n: integer; begin       f: =1;       write('n='); readln(n);       if n< 0 then writeln('error! ') else       if n=0 then writeln('n! =',1)      else begin           for x: =2 to n do               f: =f*x;           writeln('n! =',f); end;     readln; end.