Найти минимальное количество множителей используя цикл while - Pascal ABC

Формулировка задачи:

Найти минимальное количество множителей используя цикл while 1.5*2*2.5*3* ... , чтобы произведение оказалось больше некоторого числа N.

Код к задаче: «Найти минимальное количество множителей используя цикл while - Pascal ABC»

textual
var k:integer;
    n,p,a:real;
begin
write('n>0 n=');
readln(n);
p:=1;
k:=0;
a:=1;
while p<=n do
 begin
  a:=a+0.5;
  p:=p*a;
  k:=k+1;
 end;
write('p=',p:0:1,' k=',k);
end.

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ