Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết với đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp? KQ S bằng bao nhiêu?
Program Thuattoan2;
Var s, n : real;
Begin S:= 10; n:=0;
While s < 10 do Begin N := n + 3; S := s – n; End;
Writeln(S); End.
