S <-- 0 ; n <--- 0; while S <= 10 do n <--- n+ 1 S <--- S + n Tính bằng tay hộ em đề này ạ ( kh phải tính trên pascal đâu ạ )
S <-- 0 ; n <--- 0; while S <= 10 do n <--- n+ 1 S <--- S + n Tính bằng tay hộ em đề này ạ ( kh phải tính trên pascal đâu ạ )
Mình cho rằng cái đề này bạn viết sai, mình viết lại xem đúng không nha, nếu không bài này sẽ bị lỗi lặp vô hạn lần
S:=0; n:=0;
while S<=10 do
begin
n:=n+1;
S:=S+n;
end;
Bài giải:
S=0, n:=0;
Vì S<=10 nên n=n+1=0+1=1; S=S+n=0+1=1 (S=1,n=1)
Vì S<=10 nên n=n+1=1+1=2; S=S+n=1+2=3 (S=3,n=2)
Vì S<=10 nên n=n+1=2+1=3; S=S+n=3+3=6 (S=6,n=3)
Vì S<=10 nên n=n+1=3+1=4; S=S+n=6+4=10 (S=10,n=4)
Vì S<=10 nên n=n+1=4+1=5; S=S+n=10+5=15 (S=15,n=5)
Vì S>n nên vòng lặp kết thúc
`=>` Vậy kết thúc vòng lặp S=15, n=5
0<10 n=0+1;
S=0+1;
1<10 n=1+1;
S=1+2;
3<10 n=2+1;
S=2+3;
5<10 n=3+1;
S=5+4;
9<10 n=3+1;
S=9+4;
13>10 chương trình kết thúc