Var a,b,c,p: real; begin write('a = '); read(a); write('b = '); read(b); write('c = '); read(c); if (a< b+c)and(b< a+c)and(c< a+b) then begin if (a=b)and(a< > c) then write('треугольник равнобедренный, ') else if (a=b)and(b=c) then write('треугольник равносторонний, ') else if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=b*b+a*a) then write('треугольник прямоульный, ') else write('треугольник никакой, '); p: =(a+b+c)/2; a: =sqrt(p*(p-a)*(p-b)*(p-c)); write('его площадь равна ',a); end else write('треугольник не существует') end.
Liliya-buc
05.05.2021
Для быстрого перемещения курсора в пределах экрана можно использовать следующие клавиши и сочетания клавиш: на один символ влево стрелка влево на один символ вправо стрелка вправо на одно слово влево ctrl+стрелка влево на одно слово вправо ctrl+стрелка вправо на один абзац вверх ctrl+стрелка вверх на один абзац вниз ctrl+стрелка вниз к предыдущей строке стрелка вверх к следующей строке стрелка вниз в конец строки end в начало строки home если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. это можно сделать с полос прокрутки, расположенных справа и внизу окна документа