Question

Для каждой задачи составить программу в Pascal, выводящую значение TRUE, если указанное высказывание является истинным, и FALSE - в противном случае


3. Треугольник со сторонами а, в, с является равнобедренным

Answer 1

var a,b,c:real;

begin

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

readln(a,b,c);

if (a=b) or (b=c) or (c=a) then writeln('TRUE') else writeln('FALSE')

end.

или

var a,b,c:real;

d:boolean;

begin

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

readln(a,b,c);

d:=(a=b) or (b=c) or (c=a);

writeln(d)

end.