Найти N! (читается “N факториал”, где N!=123.N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус

@Профессор23 · Регистрация: 17.12.2013

Author24 — интернет-сервис помощи студентам

Найти N! (читается “N факториал”, где N!=1*2*3*...*N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постусловием.

@neolanta · 17.12.2013, 19:41

Pascal

PROGRAM PR;
USES CRT;
VAR N,I:INTEGER;
    P:REAL;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
IF N=0 THEN WRITELN('O!=1') ELSE
IF N<0 THEN WRITELN('VVEDITE POLOGITELNOE CHISLO') ELSE
BEGIN
P:=1;
FOR I:=1 TO N DO
P:=P*I;
WRITELN(P:2:2);
END;
READKEY;
END.

@Svager · 17.12.2013, 19:52

Pascal

uses crt;
var n,i,f:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
f:=1;
 
for i:=1 to n do
 f:=f*i;
 
 writeln('F = ',f);
readkey;
END.

Добавлено через 45 секунд
2.

Pascal

uses crt;
var n,i,f:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
f:=1;
i:=1;
while i<=n do
 begin
 f:=f*i;
 i:=i+1;
 end;
 
 writeln('F = ',f);
readkey;
END.

Добавлено через 1 минуту
3.

Pascal

uses crt;
var n,i,f:longint;
BEGIN
clrscr;
repeat
write('n = ');
read(n);
until n>0;
f:=1;
i:=1;
repeat
 begin
 i:=i+1;
 f:=f*i;
 end;
until i=n;
 writeln('F = ',f);
readkey;
END.

@Профессор23 0 / 0 / 0 Регистрация: 17.12.2013 Сообщений: 10
		1
	Найти N! (читается “N факториал”, где N!=123.N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус 17.12.2013, 19:32. Показов 6412. Ответов 2 Метки нет (Все метки) Найти N! (читается “N факториал”, где N!=123...N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постусловием. 0

	17.12.2013, 19:52

Найти N! (читается “N факториал”, где N!=1*2*3*.*N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус

Решение

Найти N! (читается “N факториал”, где N!=123.N). Программу написать в трех вариантах: с использованием циклов с параметром, предусловием, постус