👤

Salut,cum pot calcula suma tuturor numerilor de la 1 până la N(numărul dorit) utilizând ciclul while în Pascal?

Răspuns :

Program suma;
var n,i ,s: integer;
Begin
   i:=1;
   s:=0;
   while i<=n do
   begin
      s:=s+i;
      i:=i+1;
   end;
   Write(s);
End.