Даны 3 числа a,b,c. Определить, имеется ли среди них хотя бы одна пара взаимно обратных чисел.

ПОМОГИТЕ,ПОЖАЛУЙСТА!!!!!СРОЧНО НАДО!!!!!!!!!!!!!!!!!!!!!!!!!!!!

1

Ответы и объяснения

2014-01-28T18:35:08+04:00
VAR
   a,b,c: LongInt;
BEGIN
   Read(a,b,c);
   
   if (a*b = 1)or(a*c = 1)or(b*c = 1) then Write('ДА')
   else Write('НЕТ');
END.