Bài 1:
program oken;
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 10 do
writeln('Happy Birthday To You');
readln;
end.
bài 2:
program oken;
uses crt;
var i:byte;
begin
clrscr;
write('cac so tu 1 den 10: ');
for i:=1 to 10 do
write(i,' ');
readln;
end.
bài 3:
program oken;
uses crt;
var a,b,i:integer;
begin
clrscr;
write('nhap so a: '); readln(a);
write('nhap so b: '); readln(b);
write('cac so tu ',a,' den ',b,': ');
for i:=a to b do
write(i,' ');
readln;
end.
Bài 4:
program oken;
uses crt;
var a,b,i,sum:longint;
begin
clrscr;
write('nhap so a: '); readln(a);
write('nhap so b: '); readln(b);
sum:=0;
for i:=a to b do
if (i mod 2=0) then
sum:=sum+i;
writeln('tong cac so chan tu ',a,' den ',b,': ',sum);
readln;
end.
Bài 5:
program oken;
uses crt;
var a,b,i,s: longint;
begin
clrscr;
write('nhap a: '); readln(a);
write('nhap b: '); readln(b);
s:=0;
for i:=a to (b-1) do
if b mod i=0 then s:=s+i;
write('tong cac so nguyen to tu ',a,' den ',b,': ',s);
readln;
end.
