fork download 
  1. program CountEvenOdd;
  2. var
  3.   s: string;
  4.   i, digit, evens, odds: integer;
  5. begin
  6.   s := '1234567890';   { <-- значення вже задано }
  7.   evens := 0; 
  8.   odds := 0;
  9.   for i := 1 to Length(s) do
  10.   begin
  11.     digit := Ord(s[i]) - Ord('0');
  12.     if (digit mod 2 = 0) then Inc(evens)
  13.     else Inc(odds);
  14.   end;
  15.   WriteLn('Input string: ', s);
  16.   WriteLn('Even digits: ', evens);
  17.   WriteLn('Odd digits: ',  odds);
  18. end.
  19.  
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
Standard input is empty
stdout 
Input string: 1234567890
Even digits: 5
Odd digits: 5
https://ideone.com/1BAgAh
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!