- 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: Qui, 5 de Dezembro 2024, 17:13 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