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.

Answer 2

Задача 1 (на Python):

pythonCopy code
a = float(input("Введите первое число: "))
b = float(input("Введите второе число: "))

if a * b > 0:
    print("Сумма чисел:", a + b)
else:
    print("Разность чисел:", a - b)

Задача 2 (на Pascal):

pascalCopy code
var
  a, b, c: integer;
begin
  readln(a, b, c);
  if b mod 2 = 0 then
    writeln(b, ' - четное число')
  else if a mod 2 = 0 then
    writeln(a, ' - четное число')
  else if c mod 2 = 0 then
    writeln(c, ' - четное число')
  else
    writeln('Нет четных чисел');
end.