Question

Даны отрезки A B C D, проверить можно ли из этих отрезков построить
равнобедренную трапецию.

Answer 1

var a,b,c,d:integer;
beginwriteln('введите длины сторон трапеции');
readln(a,b,c,d);
if (a=0) or (b=0) or (c=0) or (d=0) then writeln ('нельзя')
else if((a=b) or (a=c) or (a=d)) or ((b=c) or (b=d)) or (c=d) then writeln ('можно')
else writeln('нельзя');
end.