program jfjffj;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
function romb(a,b,c,d:real):real;
begin
if (a=b)and(b=c)and(c=d)then
writeln('ромб')else
writeln('четырёхугольник');
end;
begin
write(x1,y1,x2,y2,x3,y3,x4,y4);
readln(x1,y1,x2,y2,x3,y3,x4,y4);
writeln('четырёхугольник является ',romb);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
