Qu'est ce qu'il affiche ce programme
bzminfo
Messages postés
30
Statut
Membre
-
le père -
le père -
bonjour,
y a-t-il quelqu'un qui peut m'expliquer qu'est ce qu'il affiche ce programme, et merci d'avance.
y a-t-il quelqu'un qui peut m'expliquer qu'est ce qu'il affiche ce programme, et merci d'avance.
uses wincrt;
var
ch:string;n:integer;
function inconnue(ch:string;i,p:integer):integer;
begin
if i=0 then inconnue:=0
else if ch[i]='1' then inconnue:= p + inconnue(ch,i-1,2*p)
else inconnue:= inconnue(ch,i-1,2*p);
end;
begin
write('ch = ');readln(ch);
writeln(inconnue(ch,length(ch),1));
end.
