Câu 1:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do writeln('Happy Birthday To You');
readln
end.
Câu 2:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do write(i:4);
readln
end.
Câu 3:
uses crt;
var i,a,b:integer;
begin
clrscr;
write('Nhap a, b: '); readln(a,b);
for i:=a to b do write(i:4);
readln
end.
Câu 4:
uses crt;
var i,a,b,tong:integer;
begin
clrscr;
tong:=0;
write('Nhap a, b: '); readln(a,b);
for i:=a to b do
if i mod 2 = 0 then tong:=tong+i;
writeln('Tong cac so chan trong day la: ',tong);
readln
end.
Câu 5: