Для кодирования одного символа надо 7 бит.
для 12 символов 7*12=84 бит-11 байт
на одного пользователя отводится 1080/40=27 байт
27-11=16 байт для дополнительной информации
.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Var
a: array[1..100] of integer;
k, i, n: integer;
begin
read(n);
for i := 1 to N do
begin
A[i] := random(40) - 20;
if (a[i] mod 3 = 0) and (a[i] mod 5 > 0) then
k := k + 1;
Write(a[i], ' ');
end;
WriteLn();
WriteLn(k);
end.
Функция вычисления арктангенса есть. Остальные можно выразить через арктангенс. Пусть х - число которое вводится в приемное поле калькулятора, у - это то, значение, которое мы выводим в поле ответа калькулятора.
1) <span>arcsin
if abs(x)<1 then
y:=arctan(x/sqrt(1-x*x)
else y:=Pi*x;
2) </span><span>arccos
y:=arctan(sqrt(1-x*x)/x);
if x<0 then y:=Pi+y;
3) </span><span>arctg
y:=arctan(x);
4) </span><span>arcctg
</span>if x=0 then y:=Pi else y:=arctan(1/x);<span>
if x<0 then y:=Pi+y;
</span><span>
5) </span><span>n!
y:=1;
for i:=1 to x do y:=y*i;
6) \%
y:=x/100
Следует при проверке иметь ввиду, что арксинус и арккосинус могут быть только в пределах от -1 до 1. Другие значения вводить нельзя. Или надо добавить проверку на корректность входных данных. </span>
Var a,b,c:real;
begin
write('Введите стороны треугольника а,b и c: ');
readln(a,b,c);
if (a=b) and(b=c) then
writeln('Треугольник равносторонний')
else writeln('Треугольник неравносторонний');
<span>end.</span>
