Электронные часы

[radiotexnik]

uses crt;
var min,sec:integer;
begin
clrscr;
for min :=1 to 3 do
begin
for sec:=1 to 60 do
begin
delay(1000);
gotoXY(1,1) ;
write (min,':',sec,'') ;
if keypressed then halt
end;
end;
end.

 

[Jaruto Tokyama]

о паскаль)

 

[Fenix]

а я делал маленькие полупрозрачные часики на делфи. до сих пор только ими и пользуюсь)

 

[radiotexnik]

да, Паскаль