Question

Transcrieţi următoarea secvenţă de program cu ajutorul instrucţiunii while:s:=0;for i:=1 to n dos:=s+i;

Answer 1

Răspuns:

s:=0; i:=1;

while i<=n do

begin

s:=s+i;

inc(i);

end;