Question

Составьте программу в Паскаль, вводящую true, если высказывание является истинным, и false в противном случае :
б)Треугольник со сторонами a, b, с являются равносторонним.

Answer 1

Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a=b) and (b=c) and (c=a) then writeln('true') else writeln('false');
end.