- 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: Qua, 24 de Abril 2024, 9:17 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 82 visitantes