Учеба и наука
Задача по Borland Pascal - вопрос №179282
В режиме диалога задается некоторое вещественное число m. требуется найти наименьшее целое неотрицательное число k, при котором 3 в степени k > M
январь 11, 2012 г.
-
Всего ответов: 1
-
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.