<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False
ты правильно ответил, С правильный
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) <span>122 (8) = 82 (10)
</span>1A9 (16)<span> = 425 (</span><span>10)
</span><span>35.2 (6) = 23.33 (<span>10)
2) а) </span></span>11000100 (2)<span> = 304 (</span><span>8)
</span>11000100 (2) = C4 (<span>16)
</span> б) 110000 (2) = 60 (8)
110000 (2) = 30 (16)
в) <span>111000000110101 (2) = 70065 (8)</span>
111000000110101 (2) = 7035 (<span>16)</span>