сколько положительных, отрицательных и нулей среди двух чисел, которые произвольно задаются

@ИраSunny · Регистрация: 27.08.2010

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

Определить, сколько положительных, отрицательных и нулей среди двух чисел, которые произвольно задаются.

@Puporev · 27.08.2010, 13:18

Pascal

uses crt;
var a,b:real;
    p,o,n:byte;
begin
clrscr;
writeln('Введите 2 числа:');
readln(a,b);
p:=ord(a>0)+ord(b>0);{ord(true)=1, ord(false)=0}
o:=ord(a<0)+ord(b<0);
n:=2-p-o;
write('Положительных=',p,'  отрицательных=',o,' нолей=',n);
readln
end.

@ИраSunny · 27.08.2010, 13:46 **[ТС]**

Спасибо большое!!!

@ИраSunny 0 / 0 / 0 Регистрация: 27.08.2010 Сообщений: 16
		1
	сколько положительных, отрицательных и нулей среди двух чисел, которые произвольно задаются 27.08.2010, 12:31. Показов 1709. Ответов 2 Метки нет (Все метки) Определить, сколько положительных, отрицательных и нулей среди двух чисел, которые произвольно задаются. 0

@ИраSunny 0 / 0 / 0 Регистрация: 27.08.2010 Сообщений: 16
	27.08.2010, 13:46 [ТС]	3
	Спасибо большое!!! 0

сколько положительных, отрицательных и нулей среди двух чисел, которые произвольно задаются

Решение