Определить,является ли треугольник со сторонами a,b,c равнобедренным.
(На языке ABC Pascal)

Ответы

Ответ дал: pacixor
0
var a, b, c: integer;
begin
    write (' Введите три стороны: ');
    readln (a, b, c);
    if (a < b+c) and (b < a+c) and (c < a+b) then
    begin
    if (a=b) or (a=c) or (b=c) then
      writeln('Треугольник равнобедренный')
    else
      writeln('Треугольник не является равнобедренным');
    end
    else
      writeln ('Треугольник не существует.');
end.
Ответ дал: pacixor
0
обрати внимание на OR и AND
Ответ дал: pacixor
0
никакой разницы
Ответ дал: loveiop
0
Извините,кто-то,кажется без глаз.
Ответ дал: loveiop
0
Если вам не составит труда, сможете сделать вторую задачу?
Ответ дал: loveiop
0
https://znanija.com/task/27102184
Вас заинтересует