Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  cryptage
Language: PASCAL
Code:
program cryptage;
uses wincrt;
var ch:string; v:boolean;
function verif(ch:string): boolean;
var i:integer; v:boolean;
begin
i:=0;
repeat
i:=i+1;
if upcase(ch[i]) in ['A'..'Z'] then
v:=True
else 
v:=False;
until (v:=False) or (i=length(ch));
if (i=length(ch)) then v:=true;
verif:=v;
end;
begin
read(ch);
v:=verif(ch);
if (v=True)
write('v:true')
else write('v:false');
end.



          
          
          
Comments: