Представьте следующую строку в виде, в котором оно записано в памяти компьютера (с таблицы ascii): люблю тебя, петра творенье!

Pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 god: =2008; if ((god mod 60)> =4)and((god mod 60)< 16) then write('зелено'); if ((god mod 60)> =16)and((god mod 60)< 28) then write('красно'); if (god mod 60> =28)and((god mod 60)< 40) then write('желто'); if (god mod 60> =40)and((god mod 60)< 52) then write('бело'); if ((god mod 60)> =52)or((god mod 60)< 4) then write('черно');   f: =((god mod 60) mod 12);   case f of   4: write('й крысы'); 5: write('й коровы'); 6: write('го тигра'); 7: write('го зайца'); 8: write('го дракона'); 9: write('й змеи'); 10: write('й лошади'); 11: write('й овцы'); 0: write('й обезьяны'); 1: write('й курицы'); 2: write('й собаки'); 3: write('й свиньи'); end;

Function dec2oct(n: integer): string; var   c, s: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then result : = '0'   else result : = s end; var   m: array[1..8] of integer;   i: integer; begin   randomize;   for i : = 1 to 8 do   begin       m[i] : = random(10000);       writeln(m[i]: 5, '(10)=', dec2oct(m[i]), '(8)')   end end. тестовое решение:   973(10)=1715(8)   7245(10)=16115(8)   2511(10)=4717(8)   5136(10)=12020(8)   8002(10)=17502(8)   7101(10)=15675(8)   4277(10)=10265(8)   5916(10)=13434(8) если вместо функции нужна процедура, достаточно заменить несколько строчек. procedure dec2oct(n: integer; s: string); var   c: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then s : = '0' end;