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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник