алгоритм должен выводить 0, если нельзя построить треугольник с длинами сторон a,b,c...

0 голосов
74 просмотров

алгоритм должен выводить 0, если нельзя построить треугольник с длинами сторон a,b,c (a,b,c-заданные числа), иначе 3,2,1 если треугольник соответственно, равносторонний или равнобедренный или другой.


Информатика (32 баллов) | 74 просмотров
Дано ответов: 2
0 голосов
Правильный ответ


Program Vlad971997;
uses crt;
var
  a,b,c:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  write('Введите a '); readln(a);
  write('Введите b '); readln(b);
  write('Введите c '); readln(c);
  if (a>=b+c) or (b>=a+c) or (a>=b+c) then
      writeln('Ответ "0": Со сторонами a,b,c нельзя построить треугольник')
    else
      if (a=b)and (b=c) and (a=c) then
          writeln('Ответ "3": Со сторонами a,b,c можно построить равносторонний треугольник')
        else
          if (a<>b)and (b<>c) and (a<>c) then
              writeln('Ответ "1": Со сторонами a,b,c можно построить другой треугольник')
            else
              writeln('Ответ "2": Со сторонами a,b,c можно построить равнобедренный треугольник')
end.

 

Проверено - работает на Паскаль АВС

(52.6k баллов)
0 голосов

CLS

a:

INPUT a

IF a<=0 THEN GOTO a</p>

b:

INPUT b

IF b<=0 THEN GOTO b</p>

c:

INPUT c

IF c<=0 THEN GOTO c</p>

IF a>=b+c OR b>=a+c OR c>=a+b THEN PRINT 0: END

IF a=b AND b=c AND c=a THEN PRINT "треугольник равноcторонний" END

IF a=b OR b=c OR c=a THEN PRINT "треугольник равнобедренный": ELSE PRIINT "другой"

END

(271k баллов)