Проверить являются ли заданные числа длинами сторон ромба, параллелограмма или четырёхугольника другого вида

@HyperBomj · Регистрация: 10.02.2018

Author24 — интернет-сервис помощи студентам

Заданы 4 числа проверить являются ли они длинами сторон ромба, параллелограмма или четырёхугольника другого вида. (Считать что стороны перечислены подряд).

@Puporev · 12.02.2018, 17:16

Pascal

1
2
3

if(a=b)and(a=c)and(a=d) then write('Ромб')
else if(a=c)and(b=d)and(a<>b) then write('Параллелограмм')
else write('Другой четырехугольник');

@Cyborg Drone · 12.02.2018, 18:51

Достаточно

Pascal

2	else if(a=c)and(b=d) then write('Параллелограмм')

поскольку, если a=b, то выполнится условие для ромба.Как вариант,

Pascal

if (a = c) and (b = d)
  then if a = b
    then write('Ромб')
    else write('Параллелограмм')
  else write('Другой четырехугольник');

@HyperBomj 0 / 0 / 0 Регистрация: 10.02.2018 Сообщений: 16
		1
	Проверить являются ли заданные числа длинами сторон ромба, параллелограмма или четырёхугольника другого вида 12.02.2018, 17:11. Показов 10224. Ответов 2 Метки нет (Все метки) Заданы 4 числа проверить являются ли они длинами сторон ромба, параллелограмма или четырёхугольника другого вида. (Считать что стороны перечислены подряд). 0

	12.02.2018, 18:51

Проверить являются ли заданные числа длинами сторон ромба, параллелограмма или четырёхугольника другого вида

Решение