Информатика, опубликовано 2018-08-22 22:03:52 by Гость
Найти произведение от 1до n( P=1*2*3....*n) на языке паскаль
Ответ оставил Гость
var
factorial:
longint;
n, i: byte;
begin
write(n = ); readln(n);
factorial := 1;
for i:=2 to n dofactorial := factorial * i;
writeln(n! = , factorial);
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.