Отыскать творенье от 1до n( P=1*2*3....*n) на языке паскаль

Найти творенье от 1до n( P=1*2*3....*n) на языке паскаль

Задать свой вопрос
1 ответ
var
    factorial:
longint;
    n, i: byte;  
begin
write('n = '); readln(n);  
    factorial := 1;  
for i:=2 to n do factorial := factorial * i;  
writeln('n! = ', factorial);  
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт