Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  abcd.exe
Language: PASCAL
Code:
program pg 1 ;
uses wincrt ;
var ch:string[20];

procedure verif (ch);
var msg :string ; 
 c:char ;
begin


c:=upcase(ch[1]);
delete(ch,1,pos(' '));
while((upcase(ch) = c) and (pos(' ',ch)<>0))do ;
begin
  delete (ch , 1,pos(' ',ch)) ;
  end;
  
  if upcase(ch[1])<>c 
  then
  
  msg:='non tautogramme ';
 
  else msg:='totaugramme ';
  
End ;

begin
proc verif (ch);

repeat 
    readln(ch) 
    until( ch<> '' );
   

end.          
Comments: