Дамп всех задач

Pascal/27.10.16/Program4.pas

@@ -0,0 +1,13 @@
+var
+  even, odd, num: integer;
+
+begin
+  Readln(num);
+  while num > 0 do 
+  begin
+    if num mod 2 = 0 then even := even + 1
+    else odd := odd + 1;
+    num := num div 10;
+  end;
+  writeln('odd ' , odd , ' even ' , even); 
+end.