--------------
Из всего этого спокойно выражаются углы.
------------------------
var s,a,b,c,ua,ub,uc,otn:real;
//-----------------
function arcsin(x:real):real;
begin
arcsin:=arctan(x/Sqrt(1-sqr(x)));
end;
//---------------------
function deg(x: real):real;
begin
deg:=round(1000*x*180/pi)/1000;
end;
//-------------
begin
readln(s,a,c);
ub:=arcsin(2*s/c/a);
b:=sqrt(sqr(a)+sqr(c)-2*a*c*cos(ub));
otn:=b/sin(ub);
uc:=arcsin(c/otn);
ua:=arcsin(a/otn);
writeln('альфа= ',deg(ua),'°');
writeln('бета= ',deg(ub),'°');
writeln('гамма= ',deg(uc),'°');
end.
Const nx=30;
var i,j,n,m,q,r:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;
begin
Write('Введите размер массива ');Readln(n);min:=100;
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=random(100)-2;write(A[i,j]:4);m:= m + A[i,j];end;writeln;end;
Sn:= m/n/n;write(m:9,Sn:9:4);writeln;
for i:=1 to n do begin
for j:=1 to n do begin
d:=abs(sn - A[i,j]);
if d < min then begin r:=i; q:=j; min := d;end;end;end;
write(A[r,q]:4,r:4,q:4);
<span>end.</span>
Var a,n,i: integer;
begin
write('n = ');
readln(n);
a:=1;
for i:=1 to n div 3 do a:=2*a;
writeln('a = ',a);
end.
Пример:
<span>n = 7
a = 4</span>
В вычислительной технике найболее употребляемыми являются коды ASCII, что означает американчки чтандартный код обмена информацией.
В таблице 256 символов. Таблица состоит из двух частей: стандартной и альтернативной.
Стандартная часть- это первые 128 символов, коды от 0 до 127: цифры, буквы латинского алфавита и специальные символы для управлением компьютера
Альтернативная часть - это вторые 128 символов, коды от 128 до 255, которые предназначены для размещения символов национальных алфавитов (русский, казахский, японский и т.д.), псевдографических и некоторых специальных символов.
gip = float(input('Введите значение гипотенузы треугольника '))
kat1 = float(input('Введите значение первого катета '))
kat2 = float(input('Введите значение второго катета '))
if (kat1 ** 2) + (kat2 ** 2) == gip ** 2:
print('Треугольник прямоугольный')
else:
print('Треугольник не является прямоугольным')