Предмет: Информатика,
автор: Squizer
Задание на листе. Срочно
Приложения:

Ответы
Автор ответа:
0
var a,b,c,d: integer;
begin
write('длины сторон a,b,c,d через пробел: ');
readln(a,b,c,d);
if (a=b) and (b=c) and (c=d) then writeln('квадрат')
else if ((a=b) and (c=d)) or ((a=c) and (b=d)) or
((a=d) and (b=c)) then writeln('прямоугольник')
else writeln('стороны не пересекаются под прямым углом');
end.
begin
write('длины сторон a,b,c,d через пробел: ');
readln(a,b,c,d);
if (a=b) and (b=c) and (c=d) then writeln('квадрат')
else if ((a=b) and (c=d)) or ((a=c) and (b=d)) or
((a=d) and (b=c)) then writeln('прямоугольник')
else writeln('стороны не пересекаются под прямым углом');
end.
Похожие вопросы
Предмет: Геометрия,
автор: s0314254
Предмет: История,
автор: kprilipko420
Предмет: Алгебра,
автор: dimonmontirovka
Предмет: Математика,
автор: масик021