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

1

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

  • KGW
  • умный
2013-12-26T17:14:17+00:00
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.

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