<em>VAR</em>
<em> s: String;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em> Write((Ord(s[1])-48)*(Ord(s[2]) + Ord(s[3]) - 96));</em>
<em>END.</em>
Var a, b, c, i: integer;
d: string;
begin
readln(a, b);
d := inttostr(a);
for i := 1 to length(d) do
c := c + strtoint(d[i]);
if (b = c) then writeln('Yes') else writeln('No');
<span>end.</span>
N = 167(8) = <span>119(10)
M = 79(16) = </span>121(10)
K=120(10) -> 1111<span>000(2)
Ответ - 4.
</span>
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.