Паскальданы три отрезка длинной a, b, c. проверить, существует ли треугольник с такими сторонами. если да, то вывести на экран сообщение "треугольник существует! ", найти его плошадь и вывести её на следующей строке, если нет, то вывести на экран сообщение "треугольника не существует".​

ответ:

var a, b, c: integer;   //инициализация переменных (длин отрезков)

begin   //начало программы (тело программы)

    write (' длины сторон: ');   //вывод сообщения в консоль

    readln (a,b,c);   //организация ввода (длин отрезков)

    if (a < = b+c) and (b < = a+c) and (c < = a+b) then   //в условии if проверяется, что каждая из сторон меньше либо равна сумме других. если хотя бы одна будет больше, то все логическое выражение вернет ложь (false). в таком случае сработает ветка else.

        writeln ('треугольник существует.')

    else

        writeln ('треугольник не существует.');

readln(); //инициализация закрытия по нажатию на кнопку

end. //конец программы

объяснение:

Uses crt; var  ksl,ksm: longint; a: array of integer;   i,sred,k: integer;     f: text; s: string; begin clrscr;     assign(f,'f1.txt'); reset(f); //из файла   while not eof(f) do        begin     readln(f,s);       ksm: =ksm+length(s); //считаем все символы      end;   writeln(ksm);     reset(f);   for i: =1 to ksm do            begin              if (s[i]=' ') then                      ksl: =ksl+1; //считаем все слова        end;   writeln(ksl);   reset(f); //из файла setlength(a,ksl+1);   for i: =1 to ksl do        begin            read(f,a[i]);         end; close(f); for i: =1 to ksl do          begin            if (a[i]=0) then a[i]: =a[1]+a[ksl]; // '' все нулевые компоненты значением суммы первой и последней компонент файла''         if (a[i]> 0) then               begin                        sred: =sred+a[i]; // ''найти среднее арифметическое положительных компонент''                        inc(k);                 end;                 if (a[i]< 0)then a[i]: =a[i]- abs( a[1]+a[ksl] );   // ''все отрицательные компоненты уменьшить на значение суммы''          end; rewrite(f); //в фаил for i: =1 to ksl do      begin                  write(f,a[i],' ');             end; close(f);   writeln(' sred= ',sred/10: 0: 1); end.

Нет такого числа, ты прав. вот все варианты ходов для s=23,24,25 "5 + 23 = 28" " |gamer1: sum1 + 1 => 6 + 23 = 29 |gamer2: sum1 + 1 => 7 + 23 = 30 " " |gamer1: sum1 + 1 => 6 + 23 = 29 |gamer2: sum2 + 1 => 6 + 24 = 30 " " |gamer1: sum1 + 1 => 6 + 23 = 29 |gamer2: sum1 * 2 => 12 + 23 = 35 " " |gamer1: sum1 + 1 => 6 + 23 = 29 |gamer2: sum2 * 2 => 6 + 46 = 52 " "" " |gamer1: sum2 + 1 => 5 + 24 = 29 |gamer2: sum1 + 1 => 6 + 24 = 30 " " |gamer1: sum2 + 1 => 5 + 24 = 29 |gamer2: sum2 + 1 => 5 + 25 = 30 " " |gamer1: sum2 + 1 => 5 + 24 = 29 |gamer2: sum1 * 2 => 10 + 24 = 34 " " |gamer1: sum2 + 1 => 5 + 24 = 29 |gamer2: sum2 * 2 => 5 + 48 = 53 " "" " |gamer1: sum1 * 2 => 10 + 23 = 33 |gamer2: sum1 + 1 => 11 + 23 = 34 " " |gamer1: sum1 * 2 => 10 + 23 = 33 |gamer2: sum2 + 1 => 10 + 24 = 34 " " |gamer1: sum1 * 2 => 10 + 23 = 33 |gamer2: sum1 * 2 => 20 + 23 = 43 " " |gamer1: sum1 * 2 => 10 + 23 = 33 |gamer2: sum2 * 2 => 10 + 46 = 56 ! " "" " |gamer1: sum2 * 2 => 5 + 46 = 51 |gamer2: sum1 + 1 => 6 + 46 = 52 " " |gamer1: sum2 * 2 => 5 + 46 = 51 |gamer2: sum2 + 1 => 5 + 47 = 52 " " |gamer1: sum2 * 2 => 5 + 46 = 51 |gamer2: sum1 * 2 => 10 + 46 = 56 ! " " |gamer1: sum2 * 2 => 5 + 46 = 51 |gamer2: sum2 * 2 => 5 + 92 = 97 ! " "" "5 + 24 = 29" " |gamer1: sum1 + 1 => 6 + 24 = 30 |gamer2: sum1 + 1 => 7 + 24 = 31 " " |gamer1: sum1 + 1 => 6 + 24 = 30 |gamer2: sum2 + 1 => 6 + 25 = 31 " " |gamer1: sum1 + 1 => 6 + 24 = 30 |gamer2: sum1 * 2 => 12 + 24 = 36 " " |gamer1: sum1 + 1 => 6 + 24 = 30 |gamer2: sum2 * 2 => 6 + 48 = 54 " "" " |gamer1: sum2 + 1 => 5 + 25 = 30 |gamer2: sum1 + 1 => 6 + 25 = 31 " " |gamer1: sum2 + 1 => 5 + 25 = 30 |gamer2: sum2 + 1 => 5 + 26 = 31 " " |gamer1: sum2 + 1 => 5 + 25 = 30 |gamer2: sum1 * 2 => 10 + 25 = 35 " " |gamer1: sum2 + 1 => 5 + 25 = 30 |gamer2: sum2 * 2 => 5 + 50 = 55 ! " "" " |gamer1: sum1 * 2 => 10 + 24 = 34 |gamer2: sum1 + 1 => 11 + 24 = 35 " " |gamer1: sum1 * 2 => 10 + 24 = 34 |gamer2: sum2 + 1 => 10 + 25 = 35 " " |gamer1: sum1 * 2 => 10 + 24 = 34 |gamer2: sum1 * 2 => 20 + 24 = 44 " " |gamer1: sum1 * 2 => 10 + 24 = 34 |gamer2: sum2 * 2 => 10 + 48 = 58 ! " "" " |gamer1: sum2 * 2 => 5 + 48 = 53 |gamer2: sum1 + 1 => 6 + 48 = 54 " " |gamer1: sum2 * 2 => 5 + 48 = 53 |gamer2: sum2 + 1 => 5 + 49 = 54 " " |gamer1: sum2 * 2 => 5 + 48 = 53 |gamer2: sum1 * 2 => 10 + 48 = 58 ! " " |gamer1: sum2 * 2 => 5 + 48 = 53 |gamer2: sum2 * 2 => 5 + 96 = 101 ! " "" "5 + 25 = 30" " |gamer1: sum1 + 1 => 6 + 25 = 31 |gamer2: sum1 + 1 => 7 + 25 = 32 " " |gamer1: sum1 + 1 => 6 + 25 = 31 |gamer2: sum2 + 1 => 6 + 26 = 32 " " |gamer1: sum1 + 1 => 6 + 25 = 31 |gamer2: sum1 * 2 => 12 + 25 = 37 " " |gamer1: sum1 + 1 => 6 + 25 = 31 |gamer2: sum2 * 2 => 6 + 50 = 56 ! " "" " |gamer1: sum2 + 1 => 5 + 26 = 31 |gamer2: sum1 + 1 => 6 + 26 = 32 " " |gamer1: sum2 + 1 => 5 + 26 = 31 |gamer2: sum2 + 1 => 5 + 27 = 32 " " |gamer1: sum2 + 1 => 5 + 26 = 31 |gamer2: sum1 * 2 => 10 + 26 = 36 " " |gamer1: sum2 + 1 => 5 + 26 = 31 |gamer2: sum2 * 2 => 5 + 52 = 57 ! " "" " |gamer1: sum1 * 2 => 10 + 25 = 35 |gamer2: sum1 + 1 => 11 + 25 = 36 " " |gamer1: sum1 * 2 => 10 + 25 = 35 |gamer2: sum2 + 1 => 10 + 26 = 36 " " |gamer1: sum1 * 2 => 10 + 25 = 35 |gamer2: sum1 * 2 => 20 + 25 = 45 " " |gamer1: sum1 * 2 => 10 + 25 = 35 |gamer2: sum2 * 2 => 10 + 50 = 60 ! " "" " |gamer1: sum2 * 2 => 5 + 50 = 55 ! " " |gamer1: sum2 * 2 => 5 + 50 = 55 ! " " |gamer1: sum2 * 2 => 5 + 50 = 55 ! " " |gamer1: sum2 * 2 => 5 + 50 = 55 ! "