Carre d'un nombre entier
larage
-
Profil bloqué -
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.
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
-
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" -
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.
