Question

Написать программу на Pacal задачи: 1.Дано два ненулевых числа проверить истинность высказывания "числа имеют разные знаки". 2. Дано два целых числа проверить истинность высказывания " оба числа четные".

Answer 1

1.
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) Or ((a<0) and (b<0)) 
writeln('У обоих чисел одинаковые знаки')
else
writeln('У чисел разные знаки') ;
end.
2.
var a,b:integer;
begin
readln(a);
readln(b);
if (a mod 2=0) And (b mod 2=0) then
writeln('Высказывание истинно')
else
writeln('Высказывание ложно') 
end.

Answer 2

Программа на Pascal для решения задачи 1:

program CheckSigns;

var
  num1, num2: integer;
  result: boolean;

begin
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  result := (num1 < 0) and (num2 > 0) or (num1 > 0) and (num2 < 0);
  
  writeln('Результат: ', result);
  
  readln;
end.

Программа на Pascal для решения задачи 2:

program CheckEvenNumbers;

var
  num1, num2: integer;
  result: boolean;

begin
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  result := (num1 mod 2 = 0) and (num2 mod 2 = 0);
  
  writeln('Результат: ', result);
  
  readln;
end.

Обе программы принимают ввод от пользователя для двух чисел и проверяют истинность соответствующего высказывания. Затем результат выводится на экран. В первой программе используется оператор `and` для проверки, что одно число отрицательное, а другое положительное. Во второй программе используется оператор `mod` для проверки, что оба числа являются четными.