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.

Bình luận (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.

Bình luận (0)
Bảo ngọc Nguyễn
Xem chi tiết
Tuấn
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
Xem chi tiết
Lưu Thanh Hà
Xem chi tiết
Aikatsu
6 tháng 3 2021 lúc 22:37

*Chương trình

Program nnn;

Uses crt;

Var S, N:real;

Begin

Write ('Nhap N');

Readln (N);

S:=20;

N:=1

If (S>=6) then N:=N+1 and S:=-S-N else write ('Ket qua S',S);

Readln;

End.

 

Bình luận (1)
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 9:22

uses crt;

var s,n:integer;

begin

clrscr;

s:=20;

n:=1;

while s>6 do 

  begin

n:=n+1;

s:=s-n;

end;

writeln(s);

readln;

end.

Bình luận (1)
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

 

Bình luận (0)
Cứu tui! Cứu tui
Xem chi tiết