Найти члены последовательности, удовлетворяющие условию

@lausa · Регистрация: 22.03.2013

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

что не так в этой программе в этой программе
Даны натуральные числа n, a1,…,an, где n≤12. Найти члены ak последовательности a1,…,an, удовлетворяющие условию (смотрите картинку), и определить их количество. говорят в интернете что программа не правильно рассчитывается , но где ошибка?

Pascal

program pr5;
var n,k,i,u,b,c:integer;
a:array[1..12] of integer ;
begin
repeat
begin
writeln('Bvedite N ');
read(n);
end;
until n<=12;
c:=1;
b:=1;
for i:=1 to n do
begin 
a[i]:=random (357);
c:=c*i;
if (b<a[i]) and (a[i]<c) then begin 
k:=k+1;
writeln('Kol = ',k);
writeln (a[i]);
end;
end;
writeln ('членов последовательности удовлетворяют условию 2^k<ak<k! ',k);
end.

@Fakeoke · 05.04.2013, 16:32

тут должна быть функция факториала и функция степени
а у тебя ни того ни другого

+
хотя C вроде и считает факториал это верно...
но где степени двойки тогда

@taras atavin · 05.04.2013, 16:40

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

ут должна быть функция факториала и функция степени

Факториал накапливается в c.

@Puporev · 05.04.2013, 16:41

Не надо ни факториал ни степень, все считается в цикле, просто нужно думать когда пишешь

Pascal

program pr5;
uses crt;
var n,k,i,u,b,c:integer;
    a:array[1..12] of integer ;
begin
repeat
write('Bvedite N do 12 n= ');
read(n);
until n<=12;
b:=1;
c:=1;
for i:=1 to n do
 begin
  a[i]:=random (357);
  write(a[i]:4);
  c:=c*i;
  b:=b*2;
  if(a[i]>b)and(a[i]<c) then k:=k+1;
 end;
writeln;
writeln ('членов последовательности удовлетворяют условию 2^k<ak<k! =',k);
end.

@taras atavin · 05.04.2013, 16:49

Ошибка в том, что $https://www.cyberforum.ru/cgi-bin/latex.cgi?b=2^0$ . Всегда. Добавь удвоение b на каждом шагу цикла после использования.

Добавлено через 7 минут
А нет, там же с единицы. Значит перед использованием.

@Fakeoke 522 / 398 / 213 Регистрация: 28.07.2011 Сообщений: 2,212
	05.04.2013, 16:32	2
	тут должна быть функция факториала и функция степени а у тебя ни того ни другого + хотя C вроде и считает факториал это верно... но где степени двойки тогда 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	05.04.2013, 16:40	3
	Сообщение от Fakeoke ут должна быть функция факториала и функция степени Факториал накапливается в c. 0

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	05.04.2013, 16:49	5
	Ошибка в том, что $https://www.cyberforum.ru/cgi-bin/latex.cgi?b=2^0$ . Всегда. Добавь удвоение b на каждом шагу цикла после использования. Добавлено через 7 минут А нет, там же с единицы. Значит перед использованием. 1

Найти члены последовательности, удовлетворяющие условию

Решение