Advertisement
Dennnhhhickk

Untitled

Nov 4th, 2016
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.08 KB | None | 0 0
  1. program TIMER;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. s, p2, b2: string;
  10. a, b, p1, a1, b1, i: integer;
  11. bol: boolean;
  12.  
  13. function swap(s: string): string;
  14. var
  15. i, j: integer;
  16. x: char;
  17. begin
  18. i := 1;
  19. j := length(s);
  20. while (i < j) do
  21. begin
  22. x := s[i];
  23. s[i] := s[j];
  24. s[j] := x;
  25. inc(i);
  26. dec(j);
  27. end;
  28. swap := s;
  29. end;
  30.  
  31. procedure wiwod(n: integer);
  32. begin
  33. if (n < 10) then
  34. writeln('0', n, ':', swap(inttostr(n)), '0')
  35. else
  36. writeln(n, ':', swap(inttostr(n)))
  37. end;
  38.  
  39. begin
  40. readln(s);
  41. delete(s, 3, 1);
  42. b := strtoint((copy(s, 3, 2)));
  43. a := strtoint((copy(s, 1, 2)));
  44. a1 := a;
  45. b1 := b;
  46. bol := true;
  47.  
  48. for i := a * 60 + b + 1 to 1440 do
  49. begin
  50. a := i div 60;
  51. b := i mod 60;
  52. if (b < 10) then
  53. b2 := '0' + inttostr(b)
  54. else
  55. b2 := inttostr(b);
  56. if ((a >= a1) or (b >= b1)) and (a = strtoint(swap(b2))) then
  57. begin
  58. bol := false;
  59. wiwod(a);
  60. break;
  61. end;
  62. end;
  63.  
  64. if (bol) then
  65. writeln('00:00');
  66.  
  67. readln;
  68. readln;
  69. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement