carre d'un nombre entier

Question

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.

Configuration: Windows XP / Firefox 3.0.19

dna.factory · Answer

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"

metarefsalem · Answer

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.

Carre d'un nombre entier

2 réponses

Discussions similaires

Newsletters