Напишите в паскале z1 = 1 - (1/4 * sin(2a) ^ 2 + cos(2a)) z2 = cos(a) ^ 2 + cos(a) ^ 4

Var  a,r,y: real; begin readln(a);     r: = (1 - (1/4 * sqr(sin(2*a)) + cos(2*;   y: = sqr(cos(a)) + sqr(cos(a))*sqr(cos(a));   writeln(r,y); end.

Переведем данные числа    1, 11,3,28,34 в двоичную систему1=1₂ 11=2*5+15=2*2+12=2*1+01=2*0+1     11=1011₂ 3=11₂ 28 и  34 больше 11, значит, их двоичная запись будет не менее 4-х знаков ответ: таких чисел нет 15=2*7+1 7=2*3+1 3=2*1+1 1=2*0+1 15=1111₂   подходит. 18=2*9+0 9=2*4+1 4=2*2+0 2=2*1+0 1=2*0+1 18=10010₂  21=2*10+1 10=2*5+0 5=2*2+1 2=2*1+0 1=2*0+1 21=10101₂ 23=2*11+1 11=2*5+1 5=2*2+1 2=2*1+0 1=2*0+1 23=10111₂    подходит. 27=2*13+1 13=2*6+1 6=2*3+0 3=2*1+1 1=2*0+1 27=11011₂    подходит. ответ: 15, 23, 27

Var     i: integer;     a: array[1..20]of integer; begin for i: =1 to 20 do   begin   a[i]: =random(-100,100);   if a[i]< 0 then write(a[i],' ');   end; end.2)а) var    i: integer;     a: array[1..20]of real; beginwriteln('исходный массив: '); for i: =1 to 20 do  begin  a[i]: =random(-50,50);   write(a[i],' ');   end; writeln; for i: =1 to 20 do  if a[i]> 10 then a[i]: =sqrt(a[i]); writeln('измененный массив: '); for i: =1 to 20 do write(a[i]: 7: 2); end.б)  var    i: integer;     a: array[1..20]of integer; beginwriteln('исходный массив: '); for i: =1 to 20 do  begin  a[i]: =random(-50,50);   write(a[i]: 4);   end; writeln; for i: =1 to 20 do  if (i mod 2=0) then a[i]: =abs(a[i]); writeln('измененный массив: '); for i: =1 to 20 do write(a[i]: 4); end.в)  var    i,n: integer;     a: array[1..20]of integer; beginwriteln('исходный массив: '); for i: =1 to 20 do  begin  a[i]: =random(-50,50);   write(a[i]: 4);   end; writeln; n: =a[1]; for i: =1 to 20 do  if a[i]< 0 then a[i]: =a[i]+5    else a[i]: =a[i]+n; writeln('измененный массив: '); for i: =1 to 20 do write(a[i]: 4); end.