Делим с остатком на 2 до тех пор, пока не получим единицу:
87 / 2 = 43 и остаток 1
43 / 2 = 21 и остаток 1
21 / 2 = 10 и остаток 1
10 / 2 = 5 и остаток 0
5 / 2 = 2 и остаток 1
2 / 2 = 1 и остаток 0
Далее, составляем двоичное число- сначала последнюю единицу (результат деления 2/2), а за ней- все остатки (в обратном порядке).
Мы получим такой результат:
![87_{10}=1010111_2](https://tex.z-dn.net/?f=87_%7B10%7D%3D1010111_2)
5) г
6)
Program Primer;
var a,x:real;
begin
write('Введите a '); readln(a);
x := sqrt(sqr(7.5*a-2));
write('x=',x);
end.
Без рандома:
program p5_4;
var
P,S,S1:real; i,k:integer;
b:array[1..20] of integer;
z:array[1..10] of integer;
begin
writeln(' z: ');
for k:=1 to 10 do
begin
Readln(z[k]);
write(z[k]:4);
end;
writeln;
writeln(' b: ');
for i:=1 to 20 do
begin
Readln(b[i]);
write(b[i]:4);
end;
P:=1;
S1:=0;
for i:=1 to 20 do
S1:=2*(S1+cos(sqr(b[i])));
for k:=1 to 10 do
P:=P*(z[k]);
S:=S1+P;
writeln(' S=',S:2:5);
<span>end.</span>
1.
Program la;
var a,b,c,d,s,n: integer;
begin
writeln('Введите 4-ехзначное число');
readln(n);
a:= n div 1000;
b:= n mod 100 div 10;
c:= n mod 10;
d:= n div 100 mod 10;
s:=a*b*c*d;
writeln(s);
<span>end.</span>