[you92cef]

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

une solution récursive utilisant une chaîne formée seulement par des chiffres

program somme ;
uses wincrt ;
var
n:string;
function som(s:string):integer;
var
   d,e:integer;
begin
if length(s)=1 then
begin
   val(s,d,e);
   som:=d;
end
   else
   begin
       val(s[1],d,e);
       som:=d+som(copy(s,2,length(s)-1));
   end;
end;

function verif(s:string):boolean;
begin
if length(s)= 0 then 
verif:= true
else
begin
if not(s[1] in ['0'..'9']) then 
	verif := false;
verif:=verif(copy(s,2,length(s)-1));
end;
end;


begin
repeat
readln(n) ;
until verif(n);
writeln(som(n));
end.

شكرا لك اخي البرنامج شغال ساحاول فهمه ان شاء الله

ممكن سؤال في اي سنة تدرس ؟