Advertisement
Guest User

Untitled

a guest
Jun 26th, 2016
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.28 KB | None | 0 0
  1. { pre ovoga, i je broj neparnih cifara, to mozes da brojis pri unosu vec }
  2. WHILE x > 0 DO
  3. Begin
  4.     cif := n mod 10;
  5.     IF cif mod 2 <> 0 THEN
  6.     begin
  7.         i := i - 1;
  8.         n := n + cif * 10^i; {ovo ovde moras da provalis kako da dignes na 10 na i, hint FOR petlja}
  9.     end;
  10.     x := x - 1;
  11. End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement