Question

PascalABC
Вводится три числа определить является ли чётным/нечётным и положительным/отрицательным/нулём наименьшее из них
> 4 3 -1
>>нечетное, отрицательное

> 15 8 23
>>чётное, положительное

>12 0 17
>>чётное, ноль

Answer 1

var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.