uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.
А) 1 *2^{0}+1 *2^{3} +1* 2^{2}+1* 2^{4}+1* 2^{5}+1* 2^{7} =1+4+8+16+32+128=189 степени расставлять с конца (начиная с нуля)
б) 112 (см. а)
в) деление в один большой столбик. если число четное, то в остатке 0, а если нечетное, то единица. число собирать с конца. 1100011101101
г) 10010100110 (см. в)
д) 10000101101
е) 10011010100 (см.в)
ж) 10101100000011
з) 27 (см. а)
и) 752
а)
вверху дописано
г) лучше делить столбиком, как в 1-м классе, но тут неудобно так писать, поэтому я распишу так.
1190/2=595 (ост. 0)
595/2=297 (ост.1)
297/2=148 (ост.1)
148/2=74 (ост. 0)
74/2=37 (ост.0)
37/2=18 (ост. 1)
18/2=9 (ост. 0)
9/2=4 (ост.1)
4/2=2 (ост.0)
2/2=1 (ост.0)
собираем с конца 10010100110
б)
ж)11011/2=5505 (1)
5505/2=2752(1)
2752/2=1376(0)
1376/2=688(0)
688/2=344(0)
344/2=172(0)
172/2=86(0)
86/2=43(0)
43/2=21(1)
21/2=10(1)
10/2=5(0)
5/2=2(1)
2/2=1(0)
10101100000011
з)
=27
32 бита или 32/8=4 байта.
<span>Каждый разряд числа занимает объем один бит. Тут 32 разряда, значит 32 бита. </span>
<span>Один байт - это 8 бит. Соответственно 32/8 = получается 4 байта</span>
Var a, b, c:real; beginwrite ('Введите размеры катетов:');read (a, b);c:=sqrt(a*a+b*b);writeln('Длина гипотенузы=', c);end.