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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.