| SheiiBaj |  |
|
2010-04-20 16:25 - Respuestas: 1 - Tema nº: 2680655
Windows XP Profesional .
Necesito hacer un programa en el cual se le pida un numero al usuario y el compilador devuelva la suma de sus dígitos.
El programa que hice, no me marca ningún error, pero no me devuelve la suma de los digitos, tal vez alguno pueda ver el error.
program ejera;
var
num: integer;
cif:integer;
begin
cif:=0;
writeln ('Ingrese un numero: ');
readln (num);
while (num mod 10)0
do begin
cif:=(cif+(num mod 10));
num:=(num-(num mod 10));
end;
writeln (cif);
readln;
end.
| |
|
|
| bacter |  |
|
Re: Sumar dígitos en Lazarus - 2010-04-20 19:08 - Respuesta 2
No te vamos hacer los deberes.
Pero un consejo general: cuando bucles no hacen lo que esperas o para comprender como funcionan, es añadir en el interior del bucle unas instrucciones para visualizar los valores en cada pasada del bucle. Eso te va dar la pista
Agradezco a los usuarios su esfuerzo de formular sus preguntas de manera clara y de emplear lengua castellana y no sms.
(Eske x + q kiera ebitarlo, me se mantxa la bola d kristal con st lenguaje y no beo el plobrema)
| |
|
|
|
