Найдите ошибки в программе(паскаль) program exmpl var c: char begin write (‘введите длины трех сторон треугольника: ’) read (a, b, c) write (‘треугольник со сторонами ’, a, b, c) if a + b > c and b + c > a and a + c > b then write (‘существует.’) else write (‘не существует.’) end.

Program exmpl; var  a,b,c: integer; begin writeln ('введите длины трех сторон треугольника: '); read (a, b, c); write ('треугольник со сторонами ', a: 3, b: 3, c: 3); if (a + b > c) and (b + c > a) and (a + c > b) then write (' существует.') else write (' не существует.'); end.

Это так называемые простые числа ферма. они имеют вид: при n = 0, 1, 2, 3, 4 получаются числа: 2^1 + 1 = 3; 2^2 + 1 = 5; 2^4 + 1 = 17; 2^8 + 1 = 257; 2^16 + 1 = 65537. и они действительно все простые. но уже 6-ое число 2^32 + 1 - составное. больше всего эти числа известны тем, что правильные многоугольники с таким (и кратным ему) количеством сторон можно построить циркулем и линейкой. как строить правильный треугольник, квадрат и 6-угольник, учат в школе. некоторые (не все) учителя учат, как построить правильный 5-угольник. карл фридрих гаусс придумал, как построить правильный 17-угольник. за это ему присвоили титул "король ". ответ: 3) 17

Не уверена, что по длине сторон можно определить, что треугольник остроугольный, но предположила, что здесь можно использовать т. пифагора, т.е. если квадрат гипотенузы (большей стороны) окажется меньше суммы квадратов катетов (меньших сторон), то соответственно и угол между последними  окажется меньше 90 градусов. если я не права, прошу, отметьте ошибкой, пусть удалят.  итак: program aaa; var a,b,c,x,y,z,s,p: real;   begin writeln ('введите стороны треугольника a, b и c'); readln (a,b,c);   {сначала найдем меньшую, среднюю и большую сторону   и присвоим их значения, соответственно, переменным x, y и z}       if a< b       then       if a< c         then            if b< c             then begin x: =a; y: =b; z: =c end             else begin x: =a; y: =c; z: =b end           else begin x: =c; y: =a; z: =b end        else         if a> c           then              if b< c               then begin x: =b; y: =c; z: =a end                else begin x: =c; y: =b; z: =a end            else begin x: =b; y: =a; z: =c end;             {теперь узнаем, является ли треугольник разносторонним и остроугольным:     для этого сравним длины сторон между собой а также сумму квадратов меньших сторон с квадратом большей}               if ((x*x+y*y)> (z*z)) and (a< > b) and (a< > c) and (b< > c)   then begin       p: =(a+b+c)/2;   // находим полупериметр     s: =sqrt(p*(p-a)*(p-b)*(p-c));   // находим площадь треугольника     writeln(x,'   ',y,'   ',z,'   - могут быть сторонами остроугольного разностороннего треугольника');     writeln('площадь этого треугольника = ',s)     end   else     writeln(a: 4,b: 4,c: 4,' - не могут быть сторонами остроугольного разностороннего треугольника') end.