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.
урок, весна, каникулы, информация, мокрому дождь не страшен;
б) первую буква слова ставят последней, вторую - предпоследней и т. д.:
арена, корзина, рюкзак;
в) (наверное, АКЛАН, а не АНКЛАН?) также, как и в а), но если в слове нечётное количество букв, то последняя группа состоит из трёх букв и в ней 1-ая буква становится 3-ей, а 3-я - 1-ой:
канал, гитара, телевизор;
г) пронумеруем буквы слова слева направо: 0, 1, 2, ..., n-2, n-1, n. Вначале поставим букву под номером 0, потом n, затем 1, далее n-1 и т.д.:
балкон, вагон, кабинет.