1)50 а второе 166.Объясняю как получила:1)переводим из 2 в десятичную 00110010(2)=0*2(7)+0*2(6)+1*2(5)+1*2(4)+0*2(3)+0*2(2)+1*2(1)+0*2(0)=0+0+32+16+0+0+2+0=50(10)
2)Переводим из 2 в 10:10100110(2)=1*2(7)+0*2(6)+1*2(5)+0*2(4)+0*2(3)+1*2(2)+1*2(1)+0*2(0)=128+0+32+0+0+4+2+0=166(10), ну по крайне мере нас так учили!) ты получаешь это все в битах а потом просто переводишь в байты,в 1 байте=8 бит!)Желаю удачи!!)
// PascalABC.NET 3.0, сборка 1088
var
MySet:set of char;
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in ['D'..'I'] then Include(MySet,s[i]);
Writeln('Состав множества: ',MySet)
end.
<u><em>Тестовое решение:</em></u>
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}
https://pastebin.com/jXqipRqF
Только в конце вместо (4,2) должно бить (5,3), но это только пример роботи. А так все норм работает. Язык - питон
//Pascal ABC.NET v3.1 сборка 1172
Const
n=3;
Var
ma:array[1..n,1..n] of real;
i,j:integer;
r:real;
begin
randomize;
r:=1;
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=random(1,10);
if j mod 2<>0 then r:=r*ma[i,j];
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Res=',r);
end.
Пример работы кода<span>:
</span>Matrix:
5 3 3
2 2 5
10 2 4
<span>Res=6000</span>
Слова отделяются друг от друга одним пробелом, знаков препинания нет.
var
s,s1:string; l,p:integer; b:boolean;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
l:=pos(' ',s1);
b:=true;
while p>0 do
begin
delete(s1,1,p);
p:=pos(' ',s1);
if p>0 then b:=b and (l=p);
end;
if b then writeln('ДЛИНА');
end.
Пример:
<span>Введите строку:
мама мыла раму
ДЛИНА
</span>
