Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  pascal
Language: PASCAL
Code:
program pg 1 ;
uses wincrt ;
var ch:string[20];
k:integer ;

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<> '' );
   
readln(k)
end.     
Comments: