6 /viết chương trình sử dụng vòng lặp in ra màn hình 50 chữ x 7 / viết chương trình in ra các số lẻ từ 1 đến 200

Bài 6 :

uses crt;

var i : byte;

begin

clrscr;

for i := 1 to 50 do write('x', '  ');

readln

end.

Bài 7 :

uses crt;

var i : integer;

begin

clrscr;

for i := 1 to 200 do

if i mod 2 <> 0 then write(i,'  ');

readln

end.

Bài 6

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 50 do

write('*');

readln;

end.

Bài 7

uses crt;

var i:integer;

begin

clrscr;

write('Cac so le tu 1 den 200 la: ');

writeln; {cách một dòng cho đẹp}

for i:=1 to 200 do

if i mod 2 <> 0 then write(i:5);

readln

End.

#nl1008