Написать программу вычисления факториала числа N.

program n_1;
var k,f,n:integer;
begin
k:=1;
f:=1;
writeln('Вычисление факториала введенного числа');
write('введите число»');
readln(n);
while (k<=n) do 
begin
f:=f*k;
k:=k+1;
end;
writeln('Результат=',f);
end.

program n_1;

var k,f,n:integer;

begin

k:=1;

f:=1;

writeln('Вычисление факториала введенного числа');

write('введите число»');

readln(n);

while (k<=n) do

begin

f:=f*k;

k:=k+1;

end;

writeln('Результат=',f);

end.

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

Написать программу вычисления факториала числа N.

Похожие записи:

Добавить комментарий Отменить ответ