Информатика. Заданы размерытрех стержней. Определить, можно ли из них построить параллелограмм (у него стороны попарно равны, однако не забудьте, что размеры стержней вводятся в произвольном порядке) "Кумир"

Question

Информатика

Трифон

29 мая, 12:35

Информатика. Заданы размерытрех стержней. Определить, можно ли из них построить параллелограмм (у него стороны попарно равны, однако не забудьте, что размеры стержней вводятся в произвольном порядке) "Кумир"

+4

Ответы (1)

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

Леруня · Answer 1

Var

a, b, c: integer;

begin

writeln ('Введите размеры стержней: ') ;

readln (a) ;

readln (b) ;

readln (c) ;

if (a = b) or (a = c) or (b = c) then

writeln ('Можно')

else

writeln ('Нельзя') ;

end.