Технический форум - Показать сообщение отдельно

DDS · 13.11.2009, 00:03

1 задача
var x:integer;y:real;
begin
read(x);
if x>0 then begin
y:=ln(x)/ln(10);
write(y:0:0); end else write('невозможно найти логарифм');
end.

13.11.2009, 00:03	#6 (permalink)
DDS Member Регистрация: 15.02.2009 Сообщений: 695 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 523	1 задача var x:integer;y:real; begin read(x); if x>0 then begin y:=ln(x)/ln(10); write(y:0:0); end else write('невозможно найти логарифм'); end.

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