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

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.

Pascal/27.10.16/Program5.pas

@@ -0,0 +1,14 @@
+var
+  n, m, a: integer;
+
+begin
+  Readln(n);
+  while n > 0 do 
+  begin
+    a := n mod 10;
+    n := n div 10;
+    m := m * 10 + a;
+  end;
+  write(m);
+  
+end.

Pascal/27.10.16/Program6.pas

@@ -0,0 +1,16 @@
+var
+  a, b, n, diff: integer;
+
+begin
+  Readln(a);
+  diff := a;
+  while a > 0 do 
+  begin
+    a := a div 10;
+    n := n + 1;
+  end;
+  a := diff;
+  diff := 5 - n;
+  if diff > 0 then begin
+  
+end.