- 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: Sáb, 7 de Dezembro 2024, 13:10 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 1 visitante