Регистрация
Войти
Стать экспертом Правила
Информатика

Задание на листе. Срочно

ОТВЕТЫ
var a,b,c,d: integer;
begin
  write('длины сторон a,b,c,d через пробел:  ');
  readln(a,b,c,d);
  if (a=b) and (b=c) and (c=d) then writeln('квадрат')
  else if ((a=b) and (c=d)) or ((a=c) and (b=d)) or
     ((a=d) and (b=c)) then writeln('прямоугольник')
  else writeln('стороны не пересекаются под прямым углом');
end.


453
Нужен срочно ответ?
1 Зарегистрируйся
2 Пополни баланс баллов
3 Назначь баллы за ответ
Чем больше баллов, тем выше веротяность скорого ответа
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам