1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.
Var
s, p, w : string;
begin
s := 'программирование';
p := copy (s, 1,8) + s[13];
w := copy (s, 8, 3);
write (p, ' ', w);
end.
Из предложений, связанных между собой какой-то общей темой.
Есть момент, связанный с y = корень(x) при x<0
Это притоверечит главному правилу корня, что подкоренное выражение больше 0, поэтому число x я умножаю на -1
#include <iostream>
#include <math.h>
using namespace std;
int main(){
setlocale(0,"rus");
float x,y;
cout << "введите значение x";
cin >> x;
if (x>0){ y = x-7 ;}
else if (x==0) {y = 3;}
else if (x<0) {y = sqrt(-1*x);}
cout << y;
return 0;
}