Напишите программы, для Паскаля.

1. Дано число Х. Определить положительное число или отрицательное.

2. Даны три целых числа. Определить количество положительных чисел.

3. Дано число Х. Определить чётное число или нечётное.

Program task1;

var n: real;

begin:

read (n) ;

if n > 0 then

writeln ('Положительное') ;

if n < 0 then

write ('Отрицательное') ;

end.

programm task2;

var a, b, c, positives: integer;

begin:

if a > 0 then

positives:=positives+1;

if b > 0 then

positives:=positives+1;

if c > 0 then

positives:=positives+1;

writeln ('Положительных: ', positives) ;

end.

program task3;

var n: integer;

begin:

read (n) ;

if (n mod 2) > 0 then

writeln ('Не чётное') ;

else

writeln ('Чётное') ;

end.

1.

var x:integer;

begin

readln (x) ;

if x>0 then writeln (x,' - положительное')

else if x<0 then writeln (x,' - отрицательное')

else writeln (x,' = 0') ;

end.

Пример:

-125

-125 - отрицательное

2.

var x, y, z, k:integer;

begin

readln (x, y, z) ;

if x>0 then k:=k+1;

if y>0 then k:=k+1;

if z>0 then k:=k+1;

writeln ('количество положительных чисел = ', k) ;

end.

Пример:

-125 84 67

количество положительных чисел = 2

3.

var x:integer;

begin

readln (x) ;

if x mod 2=0 then writeln (x,' - чётное')

else writeln (x,' - нечётное') ;

end.

Пример:

125

125 - нечётное