Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=123...n.

@Катрин1406 · Регистрация: 02.05.2011

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

Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.

@S9 · 01.06.2011, 06:17

Pascal

{Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.}
Program S9;
 
Function fact( n:Integer):Integer;{Функция для вычисления факториала}
Var
    i,Res:Integer;
Begin
    i:=0;
    Res:=1;
    Repeat
        Begin
          Inc(i);
          Res:=Res*i;
        End;
    Until
        i = n;
    fact:=Res;
End;
 
{----- Основная программа -----}   
 
Var
    M,N:Integer;
Begin
    WriteLn('Please enter N,M');
    ReadLn(N,M);
    WriteLn('N! = ',fact(N),' M! = ',fact(M));
    WriteLn('N! - M! = ',fact(N) - fact(M));
    ReadLn;
End.

@Катрин1406 1 / 1 / 0 Регистрация: 02.05.2011 Сообщений: 16
		1
	Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=123...n. 01.06.2011, 01:52. Показов 4752. Ответов 1 Метки нет (Все метки) Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=123...n. 0

	01.06.2011, 06:17

Опции темы

Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=1*2*3...n.

Решение

Составить программу,используя оператор Repeat.Составить программу для определения N!-M!,где N!=123...n.