<span>program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1<=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
<span>Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё</span></span>
819 = 1100110011, -278 = -100010110
Если в паскале то вот
vara:array [1..30] of integer;i,s,k,n:integer;h:real;begins:=0;k:=0;writeln('введите количество чисел');read(n);randomize;for i:=1 to n do begina[i]:=random(100);write(a[i]:3);end;writeln();for i:=1 to n do beginif (a[i] mod 2=0) and (i mod 2=0) then begins:=s+a[i];k:=k+1;end;end;if k>1 then h:=s/k;writeln(h); if k=0 then begin writeln('таких чисел нет'); read; halt; end;<span>end.</span>
Разработка искуственного интелекта зашла в тупик, в основном идут попытки имитации работы мозга на основе неиронных сетей
Раскладываем 59 по степеням получим 111011 -> 6 бит.