Задача по Borland Pascal - вопрос №179282

В режиме диалога задается некоторое вещественное число m. требуется найти наименьшее целое неотрицательное число k, при котором 3 в степени k > M

Ответы

program liveexp;

uses crt;

var   m,x:real;

       k,i:integer;

begin

 clrscr;

 readln(m);

 k:=0; x:=0;

 while x<=m do

   begin

     x:=1;

     for i:=0 to k do x:=x*3;

     inc(k);

   end;

 writeln(k);

 readkey;

end.

11.01.12

Еva

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store