Cronômetro de 10 até 0
Página 1 de 1
Cronômetro de 10 até 0
- Código:
program testes;
uses crt;
var seg:integer;
begin
for seg := 10 downto 0 do begin
clrscr;
writeln(seg);
delay(1000);
end;
end.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|