ИНФОРМАТИКА!!! Вычислить значение N! (n - натуральное, цикл while)
ИНФОРМАТИКА!!!
Вычислить значение N! (n - натуральное, цикл while)
Гость
Ответ(ы) на вопрос:
ГостьProgram asd;
USES crt;
var n,s,q: integer;
BEGIN
Clrscr;
Write('Vvedite n ');
Readln(n);
S:=1;
Q:=1;
while q
ГостьДело в том, что факториал числа представляет собой довольно большое значение, которое не влазит в ячейку 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.
Не нашли ответ?
Похожие вопросы