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

1

Ответы и объяснения

2013-12-26T18:45:11+00:00
Var a, b, c, d :real;
begin
     read (a, b, c, d);
     if (a=b) and (b=c) and (c=d) then write ('Ромб') else write ('Не ромб');
end.