Даны числа Р и Н (Р<Н). Суммировать вводимые числа, большие Н и отдельно суммировать числа меньшие Р. Определить количество тех и других слагаемых. При вводе числа равного Р или Н закончить работу.- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
INPUT "vvedite p ", p
INPUT "vvedite h ", h
WHILE (a <> p) AND (a <> h)
INPUT "vvedite chislo ", a
IF a > h THEN s1 = s1 + a
IF a < p THEN s2 = s2 + a
WEND
PRINT "summa >h "; s1
PRINT "summa <p "; s2

Похожие записи/страницы:

Leave a Comment