Question

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

Answer 1

Program 1;
var a,b,c,d:real;
begin
writeln('введите стороны');
readln(a,b,c,d);
if (a=b) and (b=c) and (c=d) and (d=a) then writeln('Это ромб') else writeln('Это не ромб');
readln;
end.

Надеюсь на лучший ответ:)