Составить программу, используя оператор REPEAT (найти N! – M!)

@sania meloch · Регистрация: 22.05.2013

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

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

@newyork7776 · 22.05.2013, 01:31

Pascal

program prg;
 uses crt;
 var n,m,i,j:real;
 begin
 write('chislo(n) =');readln(n);i:=n;
 write('chislo(m) =');readln(m);j:=m;
 repeat
  n:=(n*n);
  i:=i-1
  until  i<>0;
  repeat
  m:=(m*m);
  j:=j-1;
 until  j<>0;
 Writeln('Otvet = ',n-m);
end.

@sania meloch · 22.05.2013, 02:51 **[ТС]**

спасибо большое!!!

@Jener · 22.05.2013, 12:31

Pascal

program prg;
 uses crt;
 var n,m,s,s1 : integer;
     
 begin
 write('chislo(n) =');readln(n);
 write('chislo(m) =');readln(m);
 s := 1;
 repeat
  s := s * n;
  dec(n);
 until  n=1;
 s1 := 1;
 repeat
  s1 := s1 * m;
  dec(m);
 until  m=1;
 Writeln('Otvet = ',s-s1);
end.

@newyork7776 · 22.05.2013, 14:40

Сообщение от Торович

Pascal

program prg;
 uses crt;
 var n,m,s,s1 : integer;
     
 begin
 write('chislo(n) =');readln(n);
 write('chislo(m) =');readln(m);
 s := 1;
 repeat
  s := s * n;
  dec(n);
 until  n=1;
 s1 := 1;
 repeat
  s1 := s1 * m;
  dec(m);
 until  m=1;
 Writeln('Otvet = ',s-s1);
end.

ваш вариант короче )))

@Jener · 22.05.2013, 15:02

Сообщение от newyork7776

ваш вариант короче

нет, не короче, зато правильный

@newyork7776 · 23.05.2013, 10:10

аааа понял в чом моя ошибка
я написал не 5! а 5^5.извините за неправильну програму

@sania meloch 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 15
		1
	Составить программу, используя оператор REPEAT (найти N! – M!) 22.05.2013, 00:29. Показов 1487. Ответов 6 Метки нет (Все метки) Составить программу для определения N! – M!, где N!=123…n. 0

@sania meloch 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 15
	22.05.2013, 02:51 [ТС]	3
	спасибо большое!!! 0

@Jener 228 / 225 / 220 Регистрация: 03.07.2012 Сообщений: 466
	22.05.2013, 15:02	6
	Сообщение от newyork7776 ваш вариант короче нет, не короче, зато правильный 0

@newyork7776 351 / 344 / 279 Регистрация: 21.05.2013 Сообщений: 1,312
	23.05.2013, 10:10	7
	аааа понял в чом моя ошибка я написал не 5! а 5^5.извините за неправильну програму 0

Опции темы