Question

Является ли треугольник равнобедренным?Даны три числа-стороны треугольника.Написать программу на языке Паскаль

Answer 1

var a, b, c: real; {стороны треугольника}
begin
write ('a='); read(a);
write ('b='); read(b);
write ('c='); read(c);
if (a=b) or (a=c) or (b=c) write ('Treugolnik ravnobedrenniy')
else write ('Treugolnik ne ravnobedrenniy');
end.

Answer 2

у тебя тоже есть маленький недочет

Answer 3

а хотя ладно главное что работает

Answer 4

program test;
var a,b,c:real;
begin
readln(a,b,c);
if (a=c) or (a=b) or (c=b) then writeln('Треугольник равнобедренный')
else writeln('Треугольник не равнобедренный');
end.

Answer 5

проверь

Answer 6

нет, спасибо что потратил на меня время