Найти количество положительных чисел среди четырех целых чисел. Если количество положительных чисел больше, чем отрицательных, то найти наибольшее среди отрицательных, иначе наибольшее среди положительных. Посчитать количество нулевых чисел.

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) Это явно шифр замены. Мы знаем, что:
А = Я, Н = С, Т = М, О = Р, М = Т, И = Ц, Х = Й, Л = У, Ь = Г,
Е = Ъ, В = Э, Г = Ь, Й = Х.
Этого достаточно, чтобы подставить буквы и получить
НМЪПЯС = СТЕ*АН, очевидно, что это СТЕПАН.
А если немного подумать, то можно догадаться, какой это шифр.
Взяли алфавит и написали два раза - прямо и наоборот.
Каждая буква из 1 алфавита заменяется на букву 2 алфавита.
А = Я, Б = Ю, В = Э, Г = Ь, и так далее.

2) Про Виталия. Из 96 друзей 76 знают Павла и 56 знают Андрея.
Значит, минимум 76+56-96 = 36 чел знают и Павла и Андрея.
Про Павла. Из 162 друзей 96 знают Андрея и 76 знают Виталия.
Минимум 96+76-162 = 10 знают и Андрея и Виталия.
Про Андрея. Из 108 друзей 56 знают Виталия и 96 знают Павла.
Минимум 56+96-108 = 44 знают и Виталия и Павла.
Выбираем наибольшее из минимальных чисел.
ответ: минимум 44 чел знакомы со всеми тремя парнями.