Электронные часы
Запись от radiotexnik размещена 17.01.2011 в 22:26
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.
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.
Всего комментариев 3
Комментарии
-
Запись от Jaruto Tokyama размещена 19.01.2011 в 11:57 -
Запись от Fenix размещена 19.01.2011 в 19:24 -
Запись от radiotexnik размещена 24.01.2011 в 23:32