А)1000, б)101, в)11 а)1001, б)100, в)111 а)1010, б)1101, в)10 а)1110, б)10010, в)110 а)1101, б)10100, в)11010 а)11101, б)10101,
ерсина [28]
1) 8;5;3
2) 9;4;7
3)10;13;2
4) 14;18;6
5) 13;20;26
6) 29;21;47
7) 31;58;170
8) 32;73;239
9) 65;49;85
10) 86;52;58
4 умножить на 2=8.
По формуле Хартли вычисляем логарифм восьми по основанию два.
3 бита.
<span />
Const n = 10;
var a:array [1..n] of integer;
i,min,imin:integer; p:longint;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
min:=a[1]; imin:=1;
p:=1;
for i:=1 to n do
begin
if a[i]<min then begin min:=a[i]; imin:=i; end;
if a[i]<0 then p:=p*a[i];
end;
writeln('min = ',min,' imin = ',imin);
writeln('p = ',p);
end.
Пример:
9 5 10 -5 2 10 0 8 -8 2
<span>min = -8 imin = 9
p = 40</span>
Ответ:
Скорее всего:
животные | Австралия | Бразилия
program raf105;
var i,sum,pro,a:integer;
begin
writeln('Вводите 5 чисел по очереди');
pro:= 1;
for i:=1 to 5 do
begin
readln(a);
if (a>=100) and (a<=999) and ((a mod 3)=0)
then
begin
sum+= a;
pro*= a;
end;
end;
writeln('Сумма трёхзначных чисел кратных трём: ',sum);
writeln('Произведение трёхзначных чисел кратных трём: ',pro);
end.
<em><u>Язык PascalABC</u></em>