PASCAL ABC
4 задача
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
ОЧЕНЬ СРОЧНО!!!

Ответ:

Объяснение:

program chet;

var S: integer;

   St: string;

begin

S:=0;

WriteLn ('Введите строку, содержащую цифры :');

ReadLn(St);

for var i:=1 to length(St) do

  if  ( St[i]='0') or ( St[i]='2') or ( St[i]='4') or

  ( St[i]='6')  or ( St[i]='8') then   S:=S+1;

  WriteLn( 'Четных цифр - ' , S);

ReadLn;

end.