Question

задача 1) Даны 2 числа.Если произведение этих чисел больше 0, то найти сумму этих чисел, иначе найти разность этих чисел 

задача 2) числа,a,b,c . Определить какое из чисел четноеb mod 2 =1
срочно
на паскаль!

Answer 1

1
program aaa;
var
   a,b:integer;
begin
   readln(a,b);
   if(a*b>0) then writeln(a+b)
      else writeln(a-b);
end.

2
program aaa;
var
   a,b,c:integer;
begin
   readln(a,b,c);
   if(odd(a)=false) then writeln('a - чётное');
   if(odd(b)=false) then writeln('b - чётное');
   if(odd(c)=false) then writeln('c - чётное');
end.