Даны 3 числа a,b,c. Определить, имеется ли среди них хотя бы одна пара взаимно обратных чисел. ПОМОГИТЕ,ПОЖАЛУЙСТА!!!!!СРОЧНО НА

Question

3 года назад

9

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

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

1 ответ:

Андрей Уржумцев [1] · Answer 1 · 2021-06-26T15:37:42+03:00

0 0

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.