Lập trình đơn giản

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

em hãy cho biết thuật toán máy tính thực hiện bn vòng lặp? kết thúc của S bằng bn ? viết chương trình bằng pascal để mô tả thuật toán

B1:S<-20,N<-1,

B2:nếu S<HOẶC =6 CHUYỂN B4,

B3 N<-N+1, S<-S-N VÀ QUAY LẠI B2,

B4 THÔNG BÁO S VÀ KẾT THÚC THUẬT TOÁN

mn chỉ em với e cần gấp ạ

 

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.

 

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.


Các câu hỏi tương tự
Ho Truong Minh
Xem chi tiết
Nguyễn Ngọc Thảo Linh
Xem chi tiết
võ thị lan anh
Xem chi tiết
Yến Nhii
Xem chi tiết
Yến Nhii
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
random name
Xem chi tiết
Munnie
Xem chi tiết
Kamito Yuki
Xem chi tiết