Materia de PSI - Programa [Soma de Digitos]
Posted by Paulo Ramos & João Martins | Posted in | Posted on 02:44
0
lPROGRAM SomaDigitos(INPUT,OUTPUT);
lVAR num,resto,total:INTEGER;
lBEGIN
l total:=0;
l writeln('Escreva o numero que quer somar ');
l readln(num);
l repeat
l resto:=num MOD 10;
l num:=num DIV 10;
l total:=total+resto
l UNTIL num<resto;
l WRITELN('A soma ‚ ',total+num)
lEND.
Comments Posted (0)
Enviar um comentário