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

Question

Информатика

Радислава

14 августа, 03:03

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

+3

Ответы (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.