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

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

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

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

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 - нечётное

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.