Для начала переведем все числа в одну систему счисления, например в десятичную:
<span>1)
111101</span>₂=61₁₀
AF₁₆=175₁₀
36₈=30₁₀
(61+175)/30=7.8(6)₁₀
2)
125₈=85₁₀
101₂=5₁₀
2A₁₆=42₁₀
141₈=97₁₀
85+5+42-97=35₁₀
Т.к. в массиве 8 элементов и они не целочисленны, то правильный ответ под буквой b.
Ответ: b
Если на паскале, то
var
x: integer;
y: real;
begin
readln(x);
if x < 0 then
y := x*x+5*x
else
y := sqrt(x+6);
writeln(y);
<span>end.
Если в виде блок-схемы, то прикрепил картинку</span>
Вот, держи :) ...................
Var
fullstr,s,s_int,s_rl,s_str: string;
int: integer;
rl: real;
space,err: integer;
begin
writeln('String:');
readln(fullstr);
while fullstr[1] = ' ' do
delete(fullstr,1,1);
while fullstr[length(fullstr)] = ' ' do
delete(fullstr,length(fullstr),1);
while pos(' ',fullstr) <> 0 do
delete(fullstr,pos(' ',fullstr),1);
s_int := '';
s_rl := '';
s_str := '';
while fullstr <> '' do begin
space := pos(' ',fullstr);
if space = 0 then
space := length(fullstr) + 1;
s := copy(fullstr,1,space-1);
val(s,int,err);
if err = 0 then
s_int := s_int + s + ' '
else begin
val(s,rl,err);
if err = 0 then
s_rl := s_rl + s + ' '
else
s_str := s_str + s + ' ';
end;
delete(fullstr,1,space);
end;
writeln('Integers: ',s_int);
writeln('Real: ',s_rl);
writeln('Words: ',s_str);
readln
end.