(pascal abc.net ) составьте программу: дано 5-ти значное число (78906) с div и mod нужно выделить цифры из числа.

Начало думаю сами сможете написать a: =78906 for i = 1 to 5 do begin c: =a mod 10 writeln (c); a: =a-c end; end.

Program bifi; var i; integer; begin writeln('         *       '); writeln('       * *       '); writeln('     *   *     '); writeln('     *     *     '); writeln('     *         *   '); writeln('   *********    '); for i: =1 to 5 do writeln('   *       *   '); writeln('   *********   '); readln;   end.      

Type       piece = record               value: string[10];               count : = 1;       end; var       pieces: array[1..200]of piece;       i, j, n, pieces_n: integer;       s, p: string;       found: boolean;       imax: =1; begin       read(s);       read(n);       for i : = 1 to length(s) - n + 1 do       begin               p : = copy(s, i, n);               found : = false;               for j : = 1 to pieces_n do                       if pieces[j].value = p then begin                               pieces[j].count : = pieces[j].count + 1;                               found : = true;                               if pieces[imax].count < pieces[j].count then                                       imax : = j;                               break;                       end;               if not found then begin                       pieces_n : = pieces_n + 1;                       pieces[pieces_n].value : = p;               end;       end;             writeln(pieces[imax].value); end.