Carre d'un nombre entier

larage -  
 Profil bloqué -
Bonjour,
5²=1+3+5+7+9
4²=1+3+5+7
3²=1+3+5
2²=1+3
1²=1
svp je voudrè un programm en pascal qui permette de calculer le carré d'un nombre par cette méthode.

2 réponses

dna.factory Messages postés 29397 Date d'inscription   Statut Modérateur Dernière intervention   1 619
 
echo "je suis un boulet qui sait rien faire"
echo "alors je vais sur les sites demander qu'on fasse les exercices à ma place"
echo "et du coup, je pense avoir une bonne note"
1
Profil bloqué
 
program MonProgramme;

var N, I, Somme : Integer;

begin

WriteLn('Entrez un entier');
ReadLn(N);
WriteLn;
Somme := 0;
I := 1;
while Sqr(N) > Somme do begin
Somme := Somme + I;
if Somme < Sqr(N) then Write(I, ' + ') else
Write(I, ' = ');
I := I + 2;
end;
Write(Somme);
ReadLn;

end.
1