Предмет: Информатика,
автор: alimaidrisova
Даны 3 числа a,b,c. Определить, имеется ли среди них хотя бы одна пара взаимно обратных чисел.
ПОМОГИТЕ,ПОЖАЛУЙСТА!!!!!СРОЧНО НАДО!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Математика,
автор: ayliiiin
Предмет: Химия,
автор: ohmymine14
Предмет: Физика,
автор: princessjafrutonyany
Предмет: Математика,
автор: лерочкагильмиярова