На вход алгоритма подаётся натуральное число n. алгоритм строит по нему новое число r следующим образом. 1) строится двоичная запись числа n. 2) к этой записи дописывается справа бит чётности: 0, если в двоичном коде числа n было чётное число единиц, и 1, если нечётное. 3) к полученному результату дописывается ещё один бит чётности. полученная таким образом запись (в ней на два разряда больше, чем в записи исходного числа n) является двоичной записью искомого числа r. укажите минимальное число r, большее 121, которое может быть получено в результате работы этого алгоритма. в ответе это число запишите в десятичной системе
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10)))
End.
Второй вариант: если логарифм по основанию (2x+3) от 4.
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3)))
End.
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
Write('Введите a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn('S = ',S);
End.
Заполнение случайными числами:
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('a1..a',n,': ');
S:=0;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(A[i],' ');
if (A[i] mod 4 = 0) then S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.