<span>в пачке было 42х листа формата А3.Каждый лист разрезали и получили 124х листов формата А4. В системе счисления с каждим основанием вели счёт?</span>
Ответ: В десятичной...
В прямом коде:
В обратном коде:
В дополнительном коде коде:
14
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее
1)
<span>var </span>
<span>A:integer; </span>
<span>Begin </span>
<span>Readln(a); </span>
<span>If a<>0 then </span>
<span>If a<0 then writeln('a<0') else writeln('a>0') </span>
<span>Else writeln('a=0'); </span>
<span>End. </span>
2)
<span>Var </span>
<span>A,M,n:integer; </span>
<span>Begin
</span>readln(m);
readln(n);
<span>If m=n then writeln ('error') else </span>
<span>If m>n then a:=n else a:=m; </span>
<span>If (-20<=a) and (a<10) then writeln('Yes') else </span>
<span>Writeln('No');</span>
<span>End.</span>
S:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then s[i]:='*'
else s[i]:='-';
writeln(s);
readln;
end.