Ввести 3 числа a b c вывести все пары чисел одного знака. Составить программу на Pascal

program SignPairs; var a, b, c: integer;

begin writeln('Введите три числа:'); readln(a, b, c);

writeln('Пары чисел одного знака:');

if (a > 0) and (b > 0) and (c > 0) then

writeln(a, ' и ', b);

if (a > 0) and (b > 0) and (c > 0) then

writeln(a, ' и ', c);

if (a < 0) and (b < 0) and (c < 0) then

writeln(a, ' и ', b);

if (a < 0) and (b < 0) and (c < 0) then

writeln(a, ' и ', c);

if (a = 0) or (b = 0) or (c = 0) then

writeln('Нет пар чисел одного знака');

end.

Для решения этой задачи на языке программирования Pascal нам нужно создать программу, которая будет принимать три целых числа ( a ), ( b ) и ( c ), а затем проверять каждую возможную пару чисел на совпадение знаков.

Для начала, давайте разберёмся с тем, как определить знак числа. В Паскале можно использовать условные операторы для проверки того, является ли число положительным или отрицательным. Число считается положительным, если оно больше нуля, и отрицательным, если оно меньше нуля. Ноль в данном случае не имеет знака, и его мы рассматривать не будем.

Итак, в нашей программе мы будем проверять следующие пары: ( (a, b) ), ( (a, c) ), ( (b, c) ). Для каждой из этих пар мы проверим условие совпадения знаков. Если оба числа в паре положительные или оба отрицательные, то мы выводим эту пару как результат.

Давайте теперь напишем программу:

program PairsOfSameSign;

uses crt;

var 
  a, b, c: integer;

begin
  clrscr;  { Очистка экрана }
  
  { Ввод трех чисел }
  writeln('Введите три числа (a, b, c):');
  readln(a, b, c);
  
  writeln('Пары чисел одного знака:');
  
  { Проверка и вывод пар }
  
  { Пара (a, b) }
  if (a > 0) and (b > 0) or (a < 0) and (b < 0) then
    writeln('(', a, ', ', b, ')');
    
  { Пара (a, c) }
  if (a > 0) and (c > 0) or (a < 0) and (c < 0) then
    writeln('(', a, ', ', c, ')');
    
  { Пара (b, c) }
  if (b > 0) and (c > 0) or (b < 0) and (c < 0) then
    writeln('(', b, ', ', c, ')');
  
  readln;  { Ожидание ввода для завершения программы }
end.

Объяснение программы:

1. Ввод данных: Программа запрашивает у пользователя ввод трёх целых чисел: ( a ), ( b ) и ( c ).

2. Проверка пар: Для каждой из трёх пар чисел программа проверяет, имеют ли оба числа в паре одинаковый знак. Условие (a > 0) and (b > 0) проверяет, являются ли оба числа положительными, а условие (a < 0) and (b < 0) — отрицательными.

3. Вывод результата: Если условие совпадения знаков для пары выполняется, программа выводит эту пару. Если ни одна из пар не соответствует условию, программа ничего не выводит для данной пары.

Таким образом, программа позволяет определить и вывести все пары чисел, которые имеют одинаковый знак.

Для решения данной задачи на Pascal можно использовать следующий код:

program SameSignPairs;

var
  a, b, c: integer;

begin
  writeln('Введите три числа:');
  readln(a, b, c);
  
  writeln('Пары чисел одного знака:');
  
  if (a > 0) and (b > 0) then
    writeln(a, ' ', b);
  if (a > 0) and (c > 0) then
    writeln(a, ' ', c);
  if (b > 0) and (c > 0) then
    writeln(b, ' ', c);
  if (a < 0) and (b < 0) then
    writeln(a, ' ', b);
  if (a < 0) and (c < 0) then
    writeln(a, ' ', c);
  if (b < 0) and (c < 0) then
    writeln(b, ' ', c);
  
end.

Этот код сначала запрашивает у пользователя ввод трех чисел, а затем проверяет все возможные комбинации пар чисел на одинаковый знак и выводит их на экран.