Question

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

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

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

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

Answer 1

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

Answer 2

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.