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

Question

Информатика

Костюра

9 августа, 05:11

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

+2

Ответы (1)

Знаете ответ на вопрос?

Петряка · Answer 1

Var A, B, C:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

Write ('C = ') ; ReadLn (C) ;

if ((A<0) and (B0) and (B>0)) then WriteLn (A,' ', B) ;

if ((A<0) and (C0) and (C>0)) then WriteLn (A,' ', C) ;

if ((B<0) and (C0) and (C>0)) then WriteLn (B,' ', C) ;

End.