const
s: array [1..6] of char= ('б','в','г','д','ж','з');
d: array [1..6] of char= ('п','ф','к','т','ш','с');
var
c: string;
i,j: integer;
begin
readln(c);
for i:= 1 to length(c) do
for j:= 1 to 6 do
if d[j]=c[i] then c[i]:= s[j]
else
if s[j]=c[i] then c[i]:= d[j];
writeln(c)
end.<span>
</span>
Результат перевода числа<span> 138 </span>
<span>из десятичной в двоичную систему счисления: </span>
<span>10001010.
Или это не методом разности? </span>
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
h = 30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT(((a(n)) - 6 )/ 10) = (((a(n)) - 6) / 10) AND a(n)<h THEN h = a(n)
NEXT i
PRINT h
END
Ответ: 80 бит.....................................
2, 3, 5, 8, 13, 21, 34, 55, 89