- Código: Selecionar todos
program numeros;
uses crt;
var a:integer;
begin
clrscr;
Textcolor(green);
a:=1;
repeat
for a:=1 to 100 do
write(a);
until a>=1000;
readkey;
end.
Bem-vindo: Seg, 29 de Abril 2024, 2:31 Pesquisa avançada
program numeros;
uses crt;
var a:integer;
begin
clrscr;
Textcolor(green);
a:=1;
repeat
for a:=1 to 100 do
write(a);
until a>=1000;
readkey;
end.
Voltar para Scripts, programação e aplicações em desenvolvimento
Usuários navegando neste fórum: Nenhum usuário registrado e 39 visitantes