Задание:
Даны три действительных числа. Если только два из них равны между собой, то возвести все числа в квадрат и напечатать в противном случае напечатать все тричисла. Написать программу
Решение:
Var a, b, c: real; begin read (a, b, c); if (a=b) xor (b=c) xor (a=c) then // если только одно из равенств верно write (sqr (a) , ', sqr (b) , ', sqr (c) else write (a, ', b, ', c); end.
Знаете другой ответ?