-
Lenguaje
Pascal
-
Descripción
Imprima la suma de los dígitos de un número entre 1 y 99. Por ejemplo, si el número es 24 debe imprimir el valor de la suma de los dígitos (2+4=6).
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
program SumaDeLosDigitosDeUnNumero;
uses crt;
var i, suma : integer;
begin
for i:=1 to 99 do
begin
writeln ('PROCESO ', i);
suma := (i-i mod 10) div 10+i mod 10;
writeln ('Valor de suma: ', suma);
writeln;
end;
end.
uses crt;
var i, suma : integer;
begin
for i:=1 to 99 do
begin
writeln ('PROCESO ', i);
suma := (i-i mod 10) div 10+i mod 10;
writeln ('Valor de suma: ', suma);
writeln;
end;
end.