fork download 
  1. program CountEvenOdd;
  2. var
  3.   s: string;
  4.   i, digit, evens, odds: integer;
  5. begin
  6.   ReadLn(s);
  7.   evens := 0; 
  8.   odds := 0;
  9.   for i := 1 to Length(s) do
  10.   begin
  11.     if (s[i] >= '0') and (s[i] <= '9') then
  12.     begin
  13.       digit := Ord(s[i]) - Ord('0');
  14.       if (digit mod 2 = 0) then Inc(evens) else Inc(odds);
  15.     end;
  16.   end;
  17.   WriteLn('Even digits: ', evens);
  18.   WriteLn('Odd digits: ', odds);
  19. end.
  20.  
Success #stdin #stdout 0s 5324KB
comments (?)
stdin 
Standard input is empty
stdout 
Even digits: 0
Odd digits: 0
https://ideone.com/7NmELy
language:
Pascal (fpc 3.0.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!