[salemk]

المشاركة الأصلية كتبت بواسطة you92cef

الاستاذ طلب ان ندخل n على اساس string

Une itérative

Program somme ;
Uses wincrt ;
Var
N:string;

function som(s:string):integer;
var
   r,i,d,e:integer;
begin
r:=0;
for i :=1 to length(s) do
begin
val(s[i],d,e);
r:=r+d;
end;
som:=r;
end;


function verif(s:string):boolean;
var
i:integer;
begin

i:=1;
while s[i] in ['0'..'9'] do
begin
i:=i+1;
end;

verif:=i>length(s);

end;



Begin
repeat
Readln(N) ;
Until verif(N);
writeln(som(N));
end.