Написать программу нахождения номера элемента последовательности по его значению

@оксана96 · Регистрация: 12.09.2015

Написать программу нахождения номера элемента последовательности по его значению. (Массивами пользоваться запрещено) Используя эту формулу an = 2n*n!, где n! = n*(n-􀀀1)*(n-2)... 3*2*1

@Puporev · 28.09.2015, 09:58

Pascal

program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,Windows
  { you can add units after this };
 
var a,f,x,n:longint;
begin
SetConsoleOutputCP(CP_UTF8);
//В свойствах консоли шрифт Lucida Console на вкладке умолчания или свойства
write('Введите значение элемента a=');
readln(a);{есть числа 2,8,36,192...}
f:=1;
x:=1;
n:=0;
while x<a do
 begin
  n:=n+1;
  f:=f*n;
  x:=2*n*f;
 end;
if x=a then write('n=',n)
else write('Такого числа в последовательности нет');
readln
end.

@оксана96 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 60
		1
	Написать программу нахождения номера элемента последовательности по его значению 27.09.2015, 09:32. Показов 538. Ответов 1 Метки нет (Все метки) Написать программу нахождения номера элемента последовательности по его значению. (Массивами пользоваться запрещено) Используя эту формулу an = 2nn!, где n! = n(n-􀀀1)(n-2)... 32*1 0

Опции темы