Показать сообщение отдельно
Старый 18.11.2009, 18:36   #192 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,527
Записей в дневнике: 64
Сказал(а) спасибо: 148
Поблагодарили 184 раз(а) в 79 сообщениях
Репутация: 71564
По умолчанию

как-то так, думаю, но не проверял!
Код:
program three;
var i:integer;
b:extended;
a:real;
begin
write('Введите число а ');
readln(a);
i:=1;
b:=3;
while b<=a do begin
inc(i);
b:=b*3;
end;
writeln('показатель степени равен ',i);
readln
end.
__________________
Убить всех человеков!
AlexZir вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070