zadach343.BAS

{* Задача343 *}

REM basic

' Имеется информация о количестве осадков, выпавших за каждый день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое — в виде дождя. (Считать, что идет дождь, если температура воздуха выше 0.)


n = 30
For i = 1 To n
    PRINT "          den #"; i
    INPUT "vvedite kollichestvo osadkov"; q
    INPUT "vvedite temperaturu"; t
    If t > 0 Then d = d + q Else s = s + q
Next
PRINT "vypalo v vide dozhdja:"; d
PRINT "vypalo v vide snega:"; s
End