Является ли треугольник равнобедренным?Даны три числа-стороны треугольника.Написать программу на языке Паскаль
Answers & Comments
Radium226
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.
Radium226
Эта программа и не претендует на идеал. Она написана с расчетом на разбор решения. Я хотел все показать наглядно.
Bakalavr
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.
Answers & Comments
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.
var a,b,c:real;
begin
readln(a,b,c);
if (a=c) or (a=b) or (c=b) then writeln('Треугольник равнобедренный')
else writeln('Треугольник не равнобедренный');
end.