Program Menghitung Jumlah Digit-Digit Bilangan
Program Menghitung_jumlah_digit_digit_bilangan;
uses wincrt;
var
x,sum,i,z : integer;
bil : string;
begin
writeln(’====================================================’);
writeln(’Program menentukan jumlah digit2 dari bilangan bulat’);
writeln(’====================================================’);
writeln;
write(’Masukkan sebuah Bilangan : ‘); readln(Bil);
while length(bil)1 do
begin
sum := 0;
for i:=1 to length(bil) do
begin
val(bil[i],x,z);
sum := sum + x;
end;
str(sum,bil);
end;
writeln;
writeln(’Hasil jumlah : ‘,bil);
readkey;
donewincrt;
end.
