Bài tập 2: Viết chương trình hiển thị ra màn hình AAAAAA AAAAAA AAAAAA AAAAAA

2 câu trả lời

program baitap;
uses crt;
var i:longint;
begin
clrscr;
for i := 1 to 4 do
writeln('AAAAAA');
readln;
end. 

program A01;

uses crt;

var x : byte;

begin

clrscr;

x := 1; while x <= 4 do

    begin

        writeln('AAAAAA');

        x := x + 1;

    end;

readln

end.

Câu hỏi trong lớp Xem thêm