اقتباس:
المشاركة الأصلية كتبت بواسطة 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.