Program Totalogram;
Var ch:string;
(**************************************)
Function lettre_maj_esp (ch:string):boolean;
Var i:integer;
test:boolean;
Begin
i:=1;
test:=true;
While (i<=length(ch)) and (test) do
if ch[i] in ['A'..'Z',' '] Then i:=i+1
Else test:=false;
lettre_maj_esp:=test;
End;
(************************************)
Function totalogramme (ch:string):boolean;
Var p:integer;
test:boolean;
Begin
ch:=ch+' ';
Repeat
p:=pos(' ',ch);
test:=ch[1]=ch[p-1];
delete(ch,1,p);
Until (test=false) or (ch='');
totalogramme:=test;
End;
(**************** P.P ******************)
Begin
Repeat
Writeln('Saisir une chaƮne en majuscule :');
Readln(ch);
Until lettre_maj_esp(ch);
If totalogramme(ch) Then writeln('totalogramme')
Else writeln('non totalogramme');
End.
UHJvZ3JhbSBUb3RhbG9ncmFtOwpWYXIgY2g6c3RyaW5nOwooKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiopCkZ1bmN0aW9uIGxldHRyZV9tYWpfZXNwIChjaDpzdHJpbmcpOmJvb2xlYW47ClZhciBpOmludGVnZXI7CnRlc3Q6Ym9vbGVhbjsKQmVnaW4KaTo9MTsKdGVzdDo9dHJ1ZTsKV2hpbGUgKGk8PWxlbmd0aChjaCkpIGFuZCAodGVzdCkgZG8gCmlmIGNoW2ldIGluIFsnQScuLidaJywnICddIFRoZW4gaTo9aSsxIApFbHNlIHRlc3Q6PWZhbHNlOwpsZXR0cmVfbWFqX2VzcDo9dGVzdDsKRW5kOwooKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKQpGdW5jdGlvbiB0b3RhbG9ncmFtbWUgKGNoOnN0cmluZyk6Ym9vbGVhbjsKVmFyIHA6aW50ZWdlcjsKdGVzdDpib29sZWFuOwpCZWdpbgpjaDo9Y2grJyAnOwpSZXBlYXQKcDo9cG9zKCcgJyxjaCk7CnRlc3Q6PWNoWzFdPWNoW3AtMV07CmRlbGV0ZShjaCwxLHApOwpVbnRpbCAodGVzdD1mYWxzZSkgb3IgKGNoPScnKTsKdG90YWxvZ3JhbW1lOj10ZXN0OwpFbmQ7CigqKioqKioqKioqKioqKioqIFAuUCAqKioqKioqKioqKioqKioqKiopCkJlZ2luClJlcGVhdApXcml0ZWxuKCdTYWlzaXIgdW5lIGNoYcOubmUgZW4gbWFqdXNjdWxlIDonKTsKUmVhZGxuKGNoKTsKVW50aWwgbGV0dHJlX21hal9lc3AoY2gpOwpJZiB0b3RhbG9ncmFtbWUoY2gpIFRoZW4gd3JpdGVsbigndG90YWxvZ3JhbW1lJykKRWxzZSB3cml0ZWxuKCdub24gdG90YWxvZ3JhbW1lJyk7CkVuZC4=