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.
А) 2 6 10 14 18 22 26 30
б) 1 4 7 10 13 16 19
Свой ряд: 0 2 4 6 8 10 12 14 16 18 20
16 < 19 < 32 ⇒
2⁴ < 19 < 2⁵, следовательно, на хранении всех групп требуется 2⁵ байт, то есть 5 бит, так как 4 бита (16) не вмещают в себя (19) групп.
5 · 9 = 45 бит
Не знаю, где ты увидел ответ 16
Базовые это без чего нельзя обойтись. блок питания, клавиатура, монитор. Периферийные: наушники, калонки, принтер
===== PascalABC.NET ======
begin
Range(1,100).Where(p -> (p mod 10 = 1) and (p mod 3 = 0)).Print
end.