Question

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

Answer 1

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.