Viết CT in 10 dòng "lớp 8A" = 2 cách

Cách 1:

uses crt;

begin

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

writeln('lop 8A');

end.

Cách 2:

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 50 do

writeln('lop 8A');

readln

end.

Cách 1:trong ảnh

cách 2:

import time
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)
print("lớp 8A")
time.sleep(1)