найти количество положительных (отрицательных) чисел

@roast sun · Регистрация: 15.05.2010

найти количество положительных (отрицательных) чисел среди целых чисел А,В,С,Д.

@Puporev · 15.05.2010, 18:03

Pascal

1	kol_pol:=ord(a>0)+ord(b>0)+ord(c)>0+ord(d)>0;

аналогично отрицательные.
Если знать что нет нолей то

Pascal

1	kol_otr:=4-kol_pol;

@roast sun 0 / 0 / 0 Регистрация: 15.05.2010 Сообщений: 25
		1
	найти количество положительных (отрицательных) чисел 15.05.2010, 17:43. Показов 1555. Ответов 1 Метки нет (Все метки) найти количество положительных (отрицательных) чисел среди целых чисел А,В,С,Д. 0

	15.05.2010, 18:03

Решение