Дано натуральное число. определить: 1) определить количество повторений заданной цифры в нем 2) сколько раз в нем встречается цифра, равная последней 3) количество четных цифр в нем. желательно в basic. но можно и
паскаль

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.

Const     n = 13; var     a: array[1..n] of integer;     i,max,min,s: integer; begin randomize; write('исходный массив a(',n,'): '); min: =1; max: =1; for i: = 1 to n do       begin       a[i]: =random(201)-100;       write(' ',a[i]);       if a[i]< a[min] then min: =i;       if a[i]> a[max] then max: =i;       s: =s+a[i];       end; writeln; writeln('min(a) = a[',min,'] = ',a[min]); writeln('max(a) = a[',max,'] = ',a[max]); writeln('среднее арифметическое элементов массива = ',s/n); write('новый массив: '); s: =a[min]; a[min]: =a[max]; a[max]: =s; for i: = 1 to n do       write(' ',a[i]) end. пример работы программы: исходный массив a(13): 60 -61 8 -60 58 -73 93 82 74 -35 89 -72 -44 min(a) = a[6] = -73 max(a) = a[7] = 93 среднее арифметическое элементов массива = 9.15384615384615 новый массив: 60 -61 8 -60 58 93 -73 82 74 -35 89 -72 -44