Заданы длины a,b,c и d четырех отрезков прямой. проверьте могут ли отрезки быть сторонами квадрата, прямоугольника.

180

404

Посмотреть ответы 2

Ответы на вопрос:

жизаа1

Информатика

4,5(56 оценок)

Program primer; uses crt; var a,b,c,d: real; begin clrscr; write('введите длину отрезка a = '); readln(a); write('введите длину отрезка b = '); readln(b); write('введите длину отрезка c = '); readln(c); write('введите длину отрезка d = '); readln(d); writeln; if (a< =0) or (b< =0) or (c< =0) or (d< =0) then writeln('длины не могут быть отрицательными или равляться нулю') else begin if (a=b) and (a=c) and (a=d) then writeln('отрезки могут быть стороами квадрата') else writeln('отрезки не могут быть стороами квадрата'); if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then writeln('отрезки могут быть стороами прямоугольника') else writeln('отрезки не могут быть стороами прямоугольника'); end; readln; end.