Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
Минимальная длина дорог = 7+8+5+4+10+6 = 40
Решение - в прилагаемом файле
<span>program Project1;
var
i, j, k : Byte;
begin
Writeln('трехзначные числа где есть 2 од. цифры:'); for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
if (i = j) or (j = k) or (i = k) then Writeln(i, j, k);
Readln;
<span>end.
Пробел = TAB (который перед строкой)</span></span>
Символ = 6 бит ( 2^6=64 символа )
всего символов 26 * 65 * 5 = 8450
<span>всего бит 8450 * 6 = 50700 бит /8 / 1024 = 6 Кбайт</span>