Question

viết chương trình thể hiện thuật toán sau:

b1: a <- 10; b <- 1;

b2: nếu b>=5,5 thì chuyển đến bước 4

b3: b <- b+1,5 ; a <- a+b và quay lại bước 2

b4: in giá trị của các biến ra màn hình và kết thúc thuật toán

Answer 1

Chương trình:

uses crt;

var a,b:integer;

begin

clrscr;

a:=10;

b:=1;

while b<=5.5 do

begin

b:=b+1.5

a:=a+b;

end;

writeln('a = ',a);

writeln('b = ',b);

readln;

end.