|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#3
02.10.2010, 01:32
|
||||
|
||||
тогда уж так:
Код:
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; |
Древовидный вид