zadach247.BAS

{* Задача247 *}

REM basic

' Металлургический завод в январе, феврале и марте 2001 г. выпустил 1500, 1780
' и 2050 т меди. Представить эти данные в виде горизонтальной гистограммы.
' Каждый столбец должен иметь формат: месяц:**..**(значение).


CLS
        
PRINT
PRINT "Январь  :"; String$(1500 / 100, "*"); " (1500)"
PRINT "Февраль :"; String$(CInt(1780 / 100), "*"); " (1780)"
PRINT "Март    :"; String$(CInt(2050 / 100), "*"); " (2050)"

End