SHJordan

Untitled

Apr 11th, 2016
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.37 KB | None | 0 0
  1. Program Cronometro ;
  2. var h,m,s:integer;
  3. Begin
  4.   readln(h,m,s);
  5.   while(h<>-1)do
  6.   begin
  7.     while(m<>-1)do
  8.     begin
  9.       while(s<>-1)do
  10.       begin
  11.         clrscr();
  12.         writeln(h,':',m,':',s);
  13.         delay(1000);
  14.         s:=s-1;
  15.       end;
  16.       m:=m-1;
  17.       s:=59;
  18.     end;
  19.     h:=h-1;
  20.     m:=59;
  21.   end;
  22.   h:=0;
  23.   writeln(h,':',m,':',s);
  24. End.
Advertisement
Add Comment
Please, Sign In to add comment