ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[salemk]

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

شكرا اخي لمك انتبه جيدا كيف عرفت نوع n

ولكن البرنامج والاستاذ طلب ان ندخل n على اساس string

شكرا لك

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.