Help please

[Derian]

well i'd do this :
eg if i would have 14

14 div 2 = 7 ; 14 mod 2 = 0
7 div 2 = 3 ; 7 mod 2 = 1
3 div 2 = 1 ; 3 mod 2 = 1
1 div 2 = 0 ; 1 mod 2 = 1

then the number would be 1110
but if i  had a higher number this would be longer and harder to do

[taazz]

well i'd do this :
eg if i would have 17

14 div 2 = 7 ; 14 mod 2 = 0
7 div 2 = 3 ; 7 mod 2 = 1
3 div 2 = 1 ; 3 mod 2 = 1
1 div 2 = 0 ; 1 mod 2 = 1

then the number would be 1110
but if i  had a higher number this would be longer and harder to do

OK can you convert that to a loop?

[Derian]

well i wrote this , im not sure if its not wrong

Code: [Select]

program project6;
 var num,c,d,sum:integer;


begin
  writeln('entry number');
  readln(num);

  sum:=0;
  Repeat
    c:=num div 2;
    d:=num mod 2;
    num:=c;
    sum:=sum+d;
    until c=0 ;
    writeln('the sums of digits is ', sum);

end.
                                 

[taazz]

well i wrote this , im not sure if its not wrong

Code: [Select]

program project6;
 var num,c,d,sum:integer;


begin
  writeln('entry number');
  readln(num);

  sum:=0;
  Repeat
    c:=num div 2;
    d:=num mod 2;
    num:=c;
    sum:=sum+d;
    until c=0 ;
    writeln('the sums of digits is ', sum);

end.
                                 

Ok lets clean up a bit the code.

Code: [Select]

program project6;
var
  num, d,sum:integer;

begin
  writeln('entry number');
  readln(num);

  sum:=0;
  Repeat
    d:=num mod 2;
    sum:=sum+d;
    num:=num div 2;
    until num=0 ;
    writeln('the sums of digits is ', sum);
end.
that should do it and congrats you did well.

[Derian]

Thank you.