Тема: Линейные Алгоритмы
Показать сообщение отдельно
  #3  
Старый 02.10.2010, 01:32
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
  
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию
тогда уж так:
Код:
Var a: Real;
begin
 a := StrToFloat(InputBox('Ввод','Задайте количество порошка в граммах:','0'));
 ShowMessage('25%='+floattostr(a*0.25)+#13'15%='+floattostr(a*0.15)+#13'60%='+floattostr(a*0.60));
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием