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...
Đọc tiếp
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
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.
đối với bài này bạn nên dùng while...do