Pascal в последовательность произведений найти первое произведение, не превосходящее по величине В

[IIyX]

Дано условие: рассмотреть последовательность произведений 1.1*2/11,1*2/11*3/21,...,1*2/11*3/21*...*(n-1)/(n*10+1) требуется найти первое произведение, не превосходящее по величине В.... решать с помощью табулирования

ну вообщем получился у меня следующий код:

var b,n,k:real;
begin
writeln('Введите число B: ');
write('B= ');
readln(b);
n:=3;
k:=1;
while k<b do
begin
k:=k*(n-1)/(n*10+1);
n:=n+1;
end;
write ('Произведение равно : 'k:0:2);
readln
end.

Но программа выдает неверный результат - на любое вводимое число она выдает ответ - единицу. Подскажите пожалуйста где у меня ошибка?
Заранее благодарю.

[KobolD]

Помоему у тебя вводимое число неправильно воспринимается попробуй заменить readln(b); на read(b);

[Zer0]

с вводом все нормально, условие наоборот надо

while k>b do

ведь нужно найти первое число из последовательности которое будет меньше b, а значит и вычислять нужно до тех пор, пока это число больше него)

P.S. и вывод поправьте, два разряда - это довольно маловато для такой последовательности

[IIyX]

Спасибо за советы,но ничего не помогло - от количества разрядов меняется количество нулей после единицы(единица так и осталась - на любое вводимое число). Целочисленным ответ не может быть - т.к. по условию в ответе должны быть вещественные числа.

[Zer0]

странно, у меня такой код работал как надо

var b,k:real; n:integer;
begin
writeln('Введите число B: ');
write('B= ');
readln(b);
n:=3;
k:=1;
while k>b do
begin
k:=k*(n-1)/(n*10+1);
n:=n+1;
end;
write ('Произведение равно : 'k:0:18);
readln
end.

ну а количество разрядов увеличить только потому что вроде начиная с n=5 число получается меньше 0,01 и соответственно двух разрядов будет маловато

ну и соответственно B должно быть меньше или равно 1, в другом случае уже первое же число (1) и будет

первое произведение, не превосходящее по величине В

[IIyX]

Спасибо большое!! вы мне очень помогли.