Ir para o conteúdo
faxada

programa que escreva por extenso os numeros de 1 a 1000...

Mensagens Recomendadas

M6    77
M6

Tens de ir dividindo o teu número pelas várias unidades, dezenas, centenas, milhares, etc. e cada valor dessas unidades é depois traduzido.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
faxada    0
faxada

n me podia fazer uma dessas divisoes so para ver mais ou menos como e?

nao e tipo:

program extenso

uses WinCRT;

var unidades, dezenas, centenas real;

begin

unid. = mod 10

'1': write ('um');

'2': write ('dois');

'3': write ('três');

...

'9': write ('nove');

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade