Вводить с клавиатуры числа до тех пор пока не будет(-1)

@Slavik7 · Регистрация: 19.04.2010

Author24 — интернет-сервис помощи студентам

Вводить с клавиатуры любые целые числа до тех пор пока не будет введено число
(-1). Каких чисел было введено больше, положительных или отрицательных?
Посчитать, вывести на экран с пояснениями!

echs · 17.08.2016, 15:55

QBasic/QuickBASIC

DECLARE SUB VVod ()
CLS
CLEAR , , 20000
DIM SHARED n
DIM k(-1 TO 1) AS STRING
k(-1) = "OTRICATELNYH"
k(0) = "ODINAKOVO"
k(1) = "POLOSHITELNYH"
CALL VVod
 
PRINT k(SGN(n))
END
 
SUB VVod
   INPUT x
   IF x = -1 THEN EXIT SUB
   CALL VVod
   n = n + SGN(x)
END SUB

@Slavik7 0 / 0 / 1 Регистрация: 19.04.2010 Сообщений: 16
		1
	Вводить с клавиатуры числа до тех пор пока не будет(-1) 10.05.2010, 06:54. Показов 1833. Ответов 1 Метки нет (Все метки) Вводить с клавиатуры любые целые числа до тех пор пока не будет введено число (-1). Каких чисел было введено больше, положительных или отрицательных? Посчитать, вывести на экран с пояснениями! 0

	17.08.2016, 15:55

Вводить с клавиатуры числа до тех пор пока не будет(-1)

Решение