Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [TP 7.0] Вычисление факториала

Автор: GreMail 21.12.2006, 19:24

Помогите решить задачи плз!!! smile

1). По заданному целому неотрицательному значению n вычислите n!=1*2*3*4*...*n. Учтите, что 0!=1.

Решить надо без массивов, хотя я не знаю, нужны ли они сдесь..

Автор: Kuvaldis 21.12.2006, 19:28

M
Kuvaldis

Пожалуйста, один топик - один вопрос
Создайте на каждый вопрос отдельную тему. Иначе данный топик будет закрыт

Автор: doomik 21.12.2006, 23:26

Код


program factorial;
var
   I, N, Sum:integer; {*}
begin
   Sum := 1;
   writeln('Enter N:');
   readln(N);
    for I:=1 to N do
    Sum := Sum * I;
writeln('Sum:',Sum);
end.

*Если работа с более большими числами используй longint.