Program Som_Chiffres;
Var
n, som, r : Integer;
Begin
Writeln ('Donner un entier');
Readln (n);
som:=0;
Repeat
r:= n mod 10;
som:=som+r;
n:= n div 10;
Until n=0;
Writeln ('La somme de chiffres est : ', som);
End.
UHJvZ3JhbSBTb21fQ2hpZmZyZXM7ClZhcgpuLCBzb20sIHIgOiBJbnRlZ2VyOwpCZWdpbgpXcml0ZWxuICgnRG9ubmVyIHVuIGVudGllcicpOwpSZWFkbG4gKG4pOwpzb206PTA7ClJlcGVhdApyOj0gbiBtb2QgMTA7CnNvbTo9c29tK3I7Cm46PSBuIGRpdiAxMDsKVW50aWwgbj0wOwpXcml0ZWxuICgnTGEgc29tbWUgZGUgY2hpZmZyZXMgZXN0IDogJywgc29tKTsKRW5kLg==