дано случайное число определить сколько в нем четных цифр и вывести их (паскаль)

[hakas-1995]

дано случайное число определить сколько в нем четных цифр и вывести их (паскаль)

[Serge_Bliznykov]

ну, это несложно.

вариант 1 (самый простой, но цифры будут выводится в обратном порядке)

var N : longint;
   k : integer;
begin
   Randomize;
   N := Random(MaxInt);
   WriteLn('Chislo N = ', N);
  
   {подсчёт чётных цифр с одновременным выводом (печатью) их}
   if N=0 then begin Write('0 '); K := 1 end
   else begin
       K := 0;
       while N>0 do begin
         {если очередная цифра числа чётная, то напечатаем её и увеличим счётчик}  
         if not odd( N mod 10 ) then begin
            Write(N mod 10,' ');
             Inc(K);
         end;   
         N := N div 10; {уменьшим число в 10 раз. Тем самым мы отбрасываем последную, уже обработанную цифру числа}
       end;
   end;
   WriteLn;
   WriteLn(' Vsego chetnyh cifr v chisle: ', K);
   Readln
end.

второй вариант. Переводим число в строку и дальше обрабатываем её.

var N : longint;
   s : string;
   i, k : integer;
begin
   Randomize;
   N := Random(MaxInt);
   WriteLn('Chislo N = ', N);
  
   {подсчёт чётных цифр с одновременным выводом (печатью) их}

   {сначала переводим число в строку}
   Str(N, s);
   K := 0;
   for i:=1 to Length(s) do
      {если очередная цифра числа чётная, то напечатаем её и увеличим счётчик}  
      if not odd( ord(s[i])-ord('0') ) then begin
           Write(s[i],' ');
           Inc(K);
       end;   
   WriteLn;
   WriteLn(' Vsego chetnyh cifr v chisle: ', K);
   Readln
end.

третий вариант. Все цифры числа поместить в массив (каждая цифра - отдельный элемент массива) и дальше обработать массив, отобразив чётные.
расписывать уже лень...

есть и чётвертый, пятый и т.д. варианты...

Вам выбирать.

[Sciv]

Во-первых, научитесь говорить хотя бы "Здравствуйте" для начала, а "Пожалуйста, помогите! потом осилите

Во-вторых, вот Ваш код. Переменные объявляйте сами.

begin
  Randomize;
  a:=Random(32500);
  WriteLn(a);
  col:=0;
  while (a div 10>0) do begin
    b:=a mod 10;
    if not odd(b) and (b<>0) then begin
      WriteLn(b);
      inc(col);
    end;
    a:=a div 10;
  end;
  if not odd(a) then WriteLn(a);
  WriteLn(col);
  ReadLn;
end.