))с клавиатуры вводится целое 4-х значное число. выдать сообщение о том, есть ли в этом числе четные цифры и указать их количество. на паскале

  var b: integer; begin readln(b);   if (b div 1000)mod 2=0 then writeln('1 цифра четная') else writeln('1 цифра нечетная'); if ((b div 100) mod 10)mod 2=0 then writeln('2 цифра четная') else writeln('2 цифра нечетная'); if ((b div 10)mod 10)mod 2=0 then writeln('3 цифра четная')else writeln('3 цифра нечетная'); if (b mod 100)mod 2=0 then writeln('4 цифра четная') else writeln('4 цифра нечетная'); end.

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! procedure preobraz(var stroka: string); begin   var bq: =new queue< (integer,integer)> ;   foreach var m in stroka.matches('\s+') do       bq.enqueue((m.index,m.length));   var wq: =new queue< (integer,string)> ;   foreach var m in stroka.matches('\s+') do       if m.value.any(t-> t in ['0'..'9']) then wq.enqueue((m.index,''))       else wq.enqueue((m.index,m.value));   stroka: ='';   var pbi,pwi: integer;   while (bq.count> 0) and (wq.count> 0) do begin       (pbi,pwi): =(bq.peek[0],wq.peek[0]);       if pbi< pwi then begin           stroka: =stroka+bq.peek[1]*' ';           bq.dequeue           end       else begin           stroka: =stroka+wq.peek[1];           wq.dequeue           end       end;   while bq.count> 0 do begin       stroka: =stroka+bq.peek[1]*' ';       bq.dequeue       end;   while wq.count> 0 do begin       stroka: =stroka+wq.peek[1];       wq.dequeue       end end; begin   var s: =readlnstring;   preobraz(s);   s: ='< '+s+'> '; // чтобы было видно, как работает   s.println end.

Отдел +; использует приём из "", вывод из ""; пер   n, сумма, сч, скор, макс: цел; указ   сумма : = 0;   макс : = 0;   вывод.цепь("введите число автомобилей: ");   n : = приём.число();   если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе     вывод.цепь("^введите скорости: ^");     от сч : = 1 до n вып       скор : = приём.число();       если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;       увеличить(сумма, скор);       если скор > макс то макс : = скор кон;       вывод.цепь(" ")     кон   кон;   вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);   если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон кон .