Exercices Lina

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.