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.