<span>var
a,b,c: real;
</span>ugol_alpha,ugol_betta,<span>ugol_gamma: real;
begin
write('введите a: ');
readln(a);
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
</span><span>if a*a+b*b-c*c=0 then writeln('Данные не корректны!') else
<span>begin
</span></span><span>ugol_aplha :=arccos(-((sqr(a)-sqr(b)-sqr(c))/2*b*c));
ugol_betta:=arccos(-((sqr(b)-sqr(a)-sqr(c))/2*a*c));
ugol_gamma:=arccos(-((sqr(c)-sqr(a)-sqr(b))/2*a*b));
</span><span>write('альфа=',ugol_alpha</span>,' бетта=',ugol_betta:0:2,' гамма=',ugol_gamma:0:2);
end;<span>
end.</span>
Program gt;
var s:string;
l:integer;
begin
readln(s);
l:=length(s);
writeln(s[1]);
writeln(s[l],' ',s[l]);
end.
98+9=107 97+9=106 96+9=105 95+9=104 94+9=103 93+9=102
Var A: array [1..10] of integer;
I,S: integer;
begin
for I:=1 to 10 do begin
a[i]:=random(10);
S:=S+A[I];
write(a[i],' ');
end;
writeln;
writeln ('summa=',S);
end.
1.
123(10) = 173(8) = 7В(16)
105(10) = 151(8) = 69(16)
2.
37(10) = 100101(2)
91(10) = 1011011(2)
3.
95(10) и 11111(2)
95(10) = 1011111(2)
95(10) > 11111(2)
АА(16) и 252(8)
АА(16) = 252(8)
100011(2) и 45(8)
100011(2) = 43(8)
100011(2) < 45(8)