Получите 16-ричную форму внутреннего представления числа 139, 375 в формате с плавающей точкой в 4-х байтовой ячейке

короче   делаи сама и не фиг сюда

dim s as integer, sum as single

s = 44

if s mod 2 = 1 then

sum = sin(s * 3.14 / 180) + cos(s * 3.14 / 180)

else

sum = abs(s)

end if

msgbox sum

' 3

dim s as integer, sum as integer, i as integer, j as integer

  do while i < 21

  sum = sum + j

cells(i + 1, 1) = i

cells(i + 1, 2) = j

cells(i + 1, 3) = sum

i = i + 1

j = j + 3

loop

' 4

dim x as integer, sum as single, i as integer, n as integer

x = 30

n = cint(inputbox("введите n"))

for i = 1 to n

sum = sum + sin(i * x * 3.14 / 180)

next i

msgbox sum

Program zz; var   a,z,z1,z2,z3,z4,z5,z6,z7,z8,x: integer; begin readln(a);   while a> 0 do begin  x: =a mod 10;     if x=1 then z: =z+1;     if x=2 then z1: =z+1;     if x=3 then z2: =z2+1;     if x=4 then z3: =z3+1;   if x=5 then z4: =z4+1;     if x=6 then z5: =z5+1;     if x=7 then z6: =z6+1;     if x=8 then z7: =z7+1;     if x=9 then z8: =z8+1;     a: =a div 10;     end;     if (z> 1) or (z1> 1) or (z2> 1) or (z3> 1) or(z4> 1) or (z5> 1) or (z6> 1) or (z7> 1)  or (z8> 1) then writeln('yes')      else writeln('no'); end.