Написать программу в паскале определяющую является ли четырехугольник квадратом

Question

Информатика

Ведя

10 марта, 06:10

Написать программу в паскале определяющую является ли четырехугольник квадратом

+5

Ответы (1)

Знаешь ответ?

Юрьич · Answer 1

Var a, b, c, d:integer;

begin

writeln ('Введите стороны четырехугольника: ');

readln (a, b, c, d);

if (a=b) and (b=c) and (c=a) then writeln ('Четырехугольник является квадратом')

else writeln ('Четырехугольник не квадрат');

readln;

end.