5байт= бит 8 килобайт= байт 1 мегабайт= 88 бит= байт 5120 терабайт = гигабай

5  байт=40 бит 8 килобайт=8192  байт 1 мегабайт=131072  байт 88 бит=11  байт 5120 терабайт =5242880  гигабайт

Var a,b,n: integer; s: real; begin a: =0; b: =1; write('n = '); readln(n); if n< 0 then write('введите положительное число') else     begin     while a< n do           begin           s: =s+a;           a: =a+b;           swap(a,b);           write(a,' ');           end;     writeln;     writeln('s = ',s)     end; end. пример: n = 10000 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 s = 17710 примечание: условие немного некорректно, т.к. 1+1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181+6765 = 17710.

Var a,k: integer; begin k: =0; repeat readln(a); if (a< 0)and(a mod 7 = 0) then k: =k+1; until a=0; writeln('k = ',k); end. если имеется ввиду, когда кол-во километров, пройденных за день превысит k, то вот: var a,k,n: real; begin write('k = '); readln(k); a: =10; n: =0; repeat n: =n+1; a: =a*1.1 until a> k; writeln(n) end. если имеется ввиду, когда суммарное количество пройденных километров превысит k, то вот: var a,k,n,s: real; begin write('k = '); readln(k); a: =10; n: =0; s: =a; repeat n: =n+1; a: =a*1.1; s: =s+a; until s> k; writeln(n) end.