Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Exercice 1:
- program exercice1;
- uses wincrt;
- var
- date,temp:string;
- a,somme,erreur,i,k:integer;
- begin
- writeln('inserer la date de naissance');
- readln(date);
- somme:=0;
- temp:=date;
- delete(temp,3,1);
- delete(temp,5,1);
- for i:=1 to length(temp) do
- begin
- val(temp[i],a,erreur);
- somme:=somme+a;
- end;
- while(somme>9) do
- begin
- k:=somme;
- somme:=0;
- while(k<>0) do
- begin
- somme:=somme+(k mod 10);
- k:=k div 10;
- end;
- end;
- writeln('la somme demandée est ',somme);
- end.
- --------------------------------------------------------
- Exercice 2 :
- program exercice2;
- uses wincrt;
- var
- phrase,mot,palindrome:string;
- i:integer;
- begin
- mot:=''; palindrome:='';
- writeln('ecrire une phrase de 4 mots');
- readln(phrase);
- for i:=1 to 3 do
- begin
- mot:=copy(phrase,1,pos(' ',phrase));
- palindrome:=mot+palindrome;
- delete(phrase,1,pos(' ',phrase));
- end;
- palindrome:=phrase+' '+palindrome;
- writeln('la phrase renversee est');
- writeln(palindrome);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement