Автор: GET 14.12.2004 22:50
Пожалуйста,помогите!Ну, не понимаю я в Паскале!
Даны натуральные числа n, a1,a2..an.Определить количество членов ak последовательности a1,a2,..an,удовлетворяющих условию 2^k<ak<k!
Автор: FreeMan 14.12.2004 23:00
Код
counter:=0;
fak:=1;
for i:= 1 to n do begin
fak:=i*fak;
if (a[i]>1 shl i) and (a[i]<fak) then inc(counter);
end;
типа того.