Помогите решить. Паскаль

[маринаник]

Помогите решить. Паскаль

Составить алгоритм, написать и отладить программу для решения задачи на языке программирования Паскаль
Найдите произведение N членов ряда:
Y= 1*2*3*…..*x , где x– натуральное число

 

[Vladimir_S]

Составить алгоритм, написать и отладить программу для решения задачи на языке программирования Паскаль
Найдите произведение N членов ряда:
Y= 1*2*3*…..*x , где x– натуральное число

Фу, стыд какой!

Var
 P:Extended;
 i,x:Byte;
Begin
 P:=1;
 Write('x= ');
 Readln(x);
 For i:=2 to x do P:=P*i;
 Writeln(P:0:0);
 Readln
End.

P.S. Между прочим, это "произведение N членов ряда" называется "факториал" и обозначается "N!". Таким образом, задание можно было сформулировать короче: написать программу нахождения N!.

 

[маринаник]

ну да стыд)))спасибо большое!!!