Если Rобщ<R1, то параллельное,
поскольку при последовательном Rобщ=R1+R2, R2= Rобщ-R1, т.е. должно быть Rобщ>R1
var
Str1,c : string;
l,i : integer;
r : boolean;
begin
readln (Str1);
r := true;
i := 1;
l := Length (Str1);
While (r) and (i <= l) do
begin
c := copy (Str1,i,1);
if (c <> '1') and (c <> '0') then
r := false;
i := i + 1;
end;
if r then
{writeln ('Ok')}
else
writeln ('Недопустимый символ!');
<span>end.</span>
164(8)/8=20 (остаток 4)
20/8=2 <span>(остаток 4</span><span>)
Ответ 244(8)</span>