1: Xác định bài toán
-Input: số 5
-Output: in ra 5 chữ O
2: Mô tả thuật toán
-Bước 1: i:=1;
-Bước 2: xuất('O');
-Bước 3: i:=i+1;
-Bước 4: Nếu i<=5 thì quay lại bước 2
-Bước 5: Kết thúc
3: Viết chương trình
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=5 do
begin
write('O');
i:=i+1;
end;
readln;
end.
1: Xác định bài toán
-Input: số 5
-Output: in ra 5 chữ O
2: Mô tả thuật toán
-Bước 1: i:=1;
-Bước 2: xuất('O');
-Bước 3: i:=i+1;
-Bước 4: Nếu i<=5 thì quay lại bước 2
-Bước 5: Kết thúc
3: Viết chương trình
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i<=5 do
begin
write('O');
i:=i+1;
end;
readln;
end.