B1: S:=30; n:=2;
B2: nếu S<= 20,5 thì chuyển đến B4
B3: S:= S-n và quay lại B2
B4: Thông báo kết quả và kết thúc thuật toán .
Viết phương trình thể hiện thuật toán trên
Giúp với-((.
B1: S:=30; n:=2; B2: nếu S<= 20,5 thì chuyển đến B4 B3: S:= S-n và quay lại B2 B4: Thông báo kết quả và kết thúc thuật toán . Viết phương trình thể hi
By Ariana
program thuattoan;
uses crt;
var n:byte;
S:real;
begin
clsrcr;
S:=30; n:=2;
while s>20.5 do
s:=s-n;
writeln(s:2:0);
readln
end.
uses crt;
var n:integer;
s:real;
BEGIN
clrscr;
s:=30; n:=2;
while s>20.5 do
s:=s-n;
write(‘Ket qua la:’,s:0:0);
readln
END.