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

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

Hãy tìm hiểu thuật toán trên và cho bt

B1 A <--1; n <--2

B2 Nếu A>100 thì chuyển tới b4

B3 A<--A.n n <--n+1 và quay lại B2

B4 In giá trị của A.n và kết thúc

a) B3 trong thuật toán đc thực hiện bn lần

b) cho bt giá trị của A sau khi kết thúc thuật toán

c) viết chương trình thể hiện

thuật toán trên=ngôn ngữ lập trình pascal

Mong các bạn giúp minkk

Cậu Bé Bí Ẩn
20 tháng 3 2019 lúc 21:58

uses crt;

var a,n:real;

begin

clrscr;

A:=1;

n:=2; //readln(n); thay lệnh này nếu bạn muốn thay đổi giá trị của

repeat

A:=a*n;

inc(n);

until A>100;

writeln(A*n);

readln;

end.


Các câu hỏi tương tự
Nguyễn Ngọc Thảo Linh
Xem chi tiết
Ho Truong Minh
Xem chi tiết
Lưu Thanh Hà
Xem chi tiết
Munnie
Xem chi tiết
random name
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Lê Thu Hiền
Xem chi tiết
Hằng Nguyễn
Xem chi tiết
Kamito Yuki
Xem chi tiết