Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn võ thiện nhân
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 4 2022 lúc 16:46

uses crt;

var s,n:integer;

begin

clrscr;

s:=20;

n:=1;

while s>=5 do 

begin

n:=n+1;

s:=s-n;

end;

writeln(s);

readln;

end.

Nguyễn Ngọc Thảo Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 23:01

Thuật toán sẽ chạy 5 vòng lặp

Kết thúc thì S=0

Ho Truong Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 4 2022 lúc 22:52

a: Thuật toán sẽ thực hiện 5 vòng lặp

Kết thúc thì S=0

b: uses crt;

var i,s,n:integer;

begin

clrscr;

s:=20;

n:=1;

while (s>=5) do 

begin

n:=n+1;

s:=s-n;

end;

writeln(s);

readln;

end.

Tuấn
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
Xem chi tiết
Bùi Thọ Anh
Xem chi tiết
Bùi Thọ Anh
Xem chi tiết
Bắc^-^etoo
21 tháng 3 2023 lúc 15:43

Đề đầy đủ không bạn chứ mình k thấy chương trình ở câu hỏi

 

random name
Xem chi tiết

a. Thuật toán 1 :

Máy tính sẽ thực hiện 10 vòng lặp , khi kết thúc thuật toán giá trị của S = 5.0

   Đoạn chương trình Pascal tương ứng:

 

Quảng cáo

 

   S := 10;  x := 0.5;

   While S > 5.2 do

                       S := S – x;

   Writeln(S);

b. Thuật toán 2 :

Máy tính sẽ không thực hiện vòng lặp nào do điều kiện không thỏa mãn, khi kết thúc thuật toán giá trị của S = 10

Đoạn chương trình Pascal tương ứng:

S := 10;  n := 0;

   While S < 10 do

                 Begin

                       n := n + 3;

                       S := S – n

                   End;                     

   Writeln(S);

Bossquyềnlực
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 2 2023 lúc 15:59

May tính sẽ thực hiện 4 vòng lặp

Kết quả là 12