ИНФОРМАТИКА!!! Вычислить значение N! (n - натуральное, цикл while)

Question

ИНФОРМАТИКА!!!

Вычислить значение N! (n - натуральное, цикл while)

Comments

Насколько большое значение N подразумевается?

Answer 1

Program asd;
USES crt;
var n,s,q: integer;
BEGIN
Clrscr;
Write('Vvedite n ');
Readln(n);
S:=1;
Q:=1;
while qbegin
q:=q+1;
s:=s*q;
end;
writeln('Otvet: ',s);
Readln;
END.

Comments

Поставьте задержку Readkey или Readln;

---

Я пишу на ABC, забываю вставить задержку. Исправил программу, сейчас вылетает ?

---

Спасибо, Удачи!

Answer 2

Дело в том, что факториал числа представляет собой довольно большое значение, которое не влазит в ячейку real, если вводить даже не очень большие числа.
Для чисел, не превышающих 170:

uses crt;var f:real;
    x,n:integer;
begin
     f:=1;
     write('N='); readln(N);
     if N<0 then writeln('ERROR!') else<br>     if N=0 then writeln('N!=',1)
     else begin
         for x:=2 to N do
              f:=f*x;
         writeln('N!=',f); end;
    readln;
end.

Comments

Ну просто Вы язык не указали. В abc такое работать будет, а в turbo, действительно, вылетит. Я вставила readln.

---

действительно вы правы)

---

я кстати понял, как сделать для большего числа

---

нужно работать с последними цифрами и работать все в строках

---

Sellsaccount, я пыталась с последними символами и со строками, но мороки много с этим.. на каникулах, если свободное время будет, я еще подумаю над этим)

---

только там еще одна проблема) ограничение строки на 255 сиволов

---

Сделать массив символов