bai 1 : tim so lon nhat trong 3 so

program bai_1; 

var a,b,c,max:integer; 

write('nhap a = '); readln(a); 

write('nhap b = '); readln(b); 

write('nhap c = '); readln(c); 

max:=a; 

if max < b then max:=b; 

if max < c then max:=c; 

writeln(' gia tri lon nhat la: ',max); 

readln; 

end. 

________________________________________________ 

bai 2: tim so nho nhat trong 3 so

program bai_2; 

var a,b,c,min:integer; 

write('nhap a = '); readln(a); 

write('nhap b = '); readln(b); 

write('nhap c = '); readln(c); 

min:=a; 

if min > b then min:=b; 

if min > c then min:=c; 

writeln(' gia tri nho nhat la: ',min); 

readln; 

end.

bai_3: nhap vao so luong, don gia, thuc hien tinh cho khach, neu so tien lon hon 200nghin dong  

thi giam gia 10%,dua ra so tien phai tra.

program bai_3; 

var so_luong: integer; 

don_gia, tien: real; 

write('nhap so luong : '); readln(so_luong); 

write('nhap don gia : '); readln(don_gia); 

tien:=so_luong*don_gia; 

if tien > 200 then 

tien:=tien*0.9; 

writeln('so tien phai tra la: ',tien:10:0 ,' nghin'); 

readln; 

end.

Bài 4:nhap vào so luong,don gia,gioi tonh khoch hàng(nam nhap M, nu nhap F). THuc hien tonh tien cho khoch hàng: neu so tien lon hon 200 nghon giam 10% doi voi nam va 20% doi voi nu. 

program bai_4; 

var sl:integer; 

tien,dg:real; 

gioi_tinh:char; 

write('nhap so luong : '); readln(sl); 

write('nhap don gia ( nghin dong ) : '); readln(dg); 

tien:=sl*dg; 

write('nhap gioi tinh (m or f) : '); readln(gioi_tinh); 

if gioi_tinh='m' then 

writeln('khach hang nam '); 

if tien > 200 then 

writeln(' so tien phai tra la : ',tien*0.9:7:1,' nghin dong') 

else writeln('so tien phai tra la : ',tien:7:1,' nghin dong'); 

end; 

if gioi_tinh='f' then 

writeln('khach hang la nu '); 

if tien > 200 then 

writeln(' so tien phai tra la : ',tien*0.8:7:1,' nghin dong') 

else writeln('so tien phai tra la : ',tien:7:1,' nghin dong'); 

end; 

readln; 

end. 

bai 5: nhap so phut khach hang su dung trong thang, tinh so tien khach hang  

phai tra hang thang voi gia 1000d/phut va thue bao la 2.000d

program bai_5; 

var so_phut,tien: real; 

write('nhap so phut da goi trong thang: '); readln(so_phut); 

tien:=so_phut+20; 

writeln('so tien phai tra la : ',tien:10:0 ,' nghin'); 

readln; 

end. 

bai 6: nhap chi so dau,chi so cuoi, tinh tien khach hang phai tra voi gia so dien 

theo bac thang. tu so thu 1-100 gia 1000d/so 

101-200 gia 1500d/so 

>200 gia 2000d/so

program bai_6; 

var csd,csc,so_dien:integer; 

tien:real; 

write('nhap chi so dau : '); readln(csd); 

write('nhap chi so cuoi : '); readln(csc); 

so_dien:=csc-csd; 

writeln('so dien da dung la : ',so_dien,' so'); 

if (so_dien) <= (100) then 

tien:=so_dien 

else 

if so_dien <= 200 then 

tien:=so_dien*1.5 

else tien:=so_dien*2; 

writeln('so tien dien phai tra la : ',tien:10:1 ,' nghin'); 

readln; 

end. 

Bài 7: nhap a,b dau phep tinh. Dua ra ket qua tuong ung voi phop tonh nhap vào 

program bai_7; 

var a,b:integer; 

dau:char; 

write('nhap a = '); readln(a); 

write('nhap b = '); readln(b); 

write('nhap dau phep tinh : '); readln(dau); 

if dau='+' then writeln('phep tinh la: a + b = ',a+b); 

if dau='-' then writeln('phep tinh la: a - b = ',a-b); 

if dau='*' then writeln('phep tinh la: a * b = ',a*b); 

if dau='/' then writeln('phep tinh la: a/b = ',a/b:5:3); 

readln; 

end. 

Bài 8: nhap thang nam,dua ra so ngày cua thang trong nam 

program bai_8; 

var thang,nam,so_ngay:integer; 

write('nhap so nam = '); readln(nam); 

write('nhap so thang cua nam : '); readln(thang); 

if (thang=4) or (thang=6) or (thang=9) or (thang=11) then 

so_ngay:=30; 

if thang=2 then 

if nam mod thang = 0 then 

so_ngay:=29 

else so_ngay:=28; 

if (thang=1) or (thang=3) or (thang=5) or (thang=7) or (thang=8) or (thang=12) then 

so_ngay:=31; 

writeln('so ngay cua thang : ',thang, ', nam : ',nam,' la : ',so_ngay); 

readln; 

end. 

bai_9(tuong tu bai 8): nhap vao so thang,so nam, dua ra so ngay cua thang trong nam do.(dung Case..of);

program bai_9; 

var so_ngay, thang, nam: integer; 

write('nhap so thang: '); readln(thang); 

write('nhap nam: '); readln(nam);

case thang of

4,6,9,11: so_ngay:=30; 

2: case nam mod 4 of 

0: so_ngay:=29; 

1,2,3: so_ngay:=28; 

end;

1,3,5,7,8,12: so_ngay:=31; 

end; 

writeln('so ngay cua thang: ',thang, ', nam: ',nam,' la: ',so_ngay); 

readln; 

end. 

Bài 10:nhap a,b,dau phep tinh.dua ra ket qua (dung Case..of); 

program bai_10; 

var a,b:integer; 

dau:char; 

write('nhap a = '); readln(a); 

write('nhap b = '); readln(b); 

write('nhap dau cua phep tinh giua a,b : '); readln(dau); 

case dau of 

'+','-','*','/': 

if dau='+' then writeln('phep tinh la : a+b = ',a+b); 

if dau='-' then writeln('phep tinh la : a-b = ',a-b); 

if dau='*' then writeln('phep tinh la : a*b = ',a*b); 

if dau='/' then writeln('phep tinh la : a/b = ',a/b:5:3); 

end 

else writeln('ban da nhap sai phep tinh ' );

end; 

readln; 

end. 

bai 11: nhap n va in ra tat cac uoc cua n.

program bai_11; 

var i,n:integer; 

write('nhap n = '); readln(n); 

write('cac uoc cua ',n,' la: '); 

for i:=1 to n do 

if n mod i = 0 then 

write(' ',i,','); 

readln; 

end. 

Bài 12: vi' du:dung vong lap kiem tra n co phai la so nguyen to hay khong?

program tim_so_nguyen_to; 

var i,n,tong_uoc:integer;

write(' nhap so bat ki n = '); readln(n);

(*---------------kiem tra---------------------*)

tong_uoc:=0; 

for i:=1 to n do 

if n mod i=0 then 

tong_uoc:=tong_uoc+i; 

if (tong_uoc=n+1) or (tong_uoc=1) then

(*-----------------xuat ket qua---------------*)

write('n la so nguyen to') 

else 

write('n khong phai la so nguyen to'); 

readln; 

end. 

bai 13: kiem tra n co phai la so hoan hao ko?(so hoan hao la so co' 

tong cac' uoc' = chinh no' ko ke? no'.).

program bai_13; 

var i,n,tong_uoc:integer; 

write('nhap n = '); readln(n); 

tong_uoc:=0; 

for i:=1 to n-1 do 

if n mod i = 0 then tong_uoc:=tong_uoc+i; 

if tong_uoc=n then 

writeln('',n,': la so hoan hao') 

else 

writeln('',n,': khong phai la so hoan hao'); 

readln; 

end. 

bai 14: tinh tong cua S = 2+4+6+..+n

program bai_14; 

var tong,i,n:integer; 

write('nhap vao 1 so chan n = '); readln(n); 

if n mod 2 = 0 then 

tong:=0; 

i:=0; 

repeat 

i:=i+2; 

tong:=tong+i; 

end; 

until i>=n; 

writeln('tong cua bieu thuc la S = ',tong); 

end

else 

writeln('ban da nhap sai'); 

readln; 

end. 

bai_15:tinh tong S = 1+3+5+...+n

program bai_15; 

var i,n,tong:integer; 

writeln('nhap vao 1 so le n = '); readln(n); 

if n mod 2 = 1 then 

tong:=tong+1; 

i:=1; 

repeat begin i:=i+2; 

tong:=tong+i 

end; 

until i>=n; 

writeln('tong cua day so la : S= ',tong); 

end 

else 

writeln('ban da nhap sai '); 

readln; 

end. 

Bài 16:tim so co dang ab sao cho a*b=a+b

program bai_16; 

var a,b:integer; 

write('chu so co dang ab ma a*b=a+b la : '); 

for a:=0 to 9 do 

for b:=0 to 9 do 

if a*b=a+b then write(a:10,b); 

readln; 

end. 

bai 17: tim uoc so chung lon nhat cua 2 so a,b va dua ra ket qua.

program tim_uoc_chung; 

var a,b,u:integer; 

procedure tim_uoc(a,b:integer; var u:integer);

(*------------------thu tuc tim uoc------------------*)

while a<>b do 

if a>b then a:=a-b 

else b:=b-a; 

u:=a; 

end;

(*----------------------nhap 2 so a,b va xuat uoc--------------*)

write(' nhap a = '); readln(a); 

write(' nhap b = '); readln(b); 

tim_uoc(a,b,u); 

writeln(' uoc so chung lon nhat la : ',u); 

readln; 

end. 

bai 18: tim boi so chung nho nhat cua 2 so

program bai_18; 

var a,b,tich:integer; 

write('nhap a : '); readln(a); 

write('nhap b : '); readln(b); 

tich:=a*b; 

while a<>b do 

if a>b then a:=a-b 

else b:=b-a; 

end; 

writeln('boi so chung nho nhat la : ',tich/a:3:0); 

readln; 

end. 

bai 19 : tim so hoan hao nho hon n:

program bai_19; 

var i,j,n,tong_uoc:integer; 

write('nhap n = '); readln(n); 

write(' so hoan hao nho hon ',n,' la : '); 

for i:=1 to n-1 do 

tong_uoc:=0; 

for j:=1 to i-1 do 

if i mod j = 0 then 

tong_uoc:=tong_uoc+j; 

if tong_uoc=i then 

write(tong_uoc:10); 

end;

readln; 

end. 

bai_20: tim cac so nguyen to nho hon n

program bai_20; 

var i,j,n,tong_uoc:integer; 

write('nhap n = '); readln(n); 

write('so nguyen to nho hon ',n,' la : '); 

for i:=1 to n-1 do 

tong_uoc:=0; 

for j:=1 to i do 

if i mod j = 0 then tong_uoc:=tong_uoc+j; 

if (tong_uoc=i+1) or (tong_uoc=1) then 

write(i:5); 

end; 

readln; 

end. 

Bài 21: tom coc chu so cu dang ab mà a+b=a*b 

program bai_21; 

var a,b:integer; 

write('chu so co dang ab ma a*b=a+b la : '); 

for a:=1 to 9 do 

for b:=0 to 9 do 

if a*b=a+b then write(a:10,b); 

readln; 

end. 

Bài 22: dung vung lap repeat until cho bài 11 chay nhieu lan(bài 11: nhap n và in ra cac uoc cua n); 

program bai_22; 

var i,n:integer; 

hoi:char; 

repeat 

write('nhap n = '); readln(n); 

writeln('cac uoc cua n la : '); 

for i:=1 to n do 

if n mod i=0 then 

writeln('',i,''); 

writeln('ban co muon thu lai ko, neu khong hay nhan phim k hoac K '); 

readln(hoi); 

until (hoi='k') or (hoi='K'); 

readln; 

end. 

Bài 23: nhap so giay doi ra gio,phyt le, gioy le 

program bai_23; 

var giay_le,giay,phut,gio,phut_le:longint; 

write('nhap so giay : '); readln(giay); 

phut:= giay div 60; 

giay_le:=giay-phut*60; 

gio:=phut div 60; 

phut_le:=phut-gio*60; 

writeln('so phut duoc doi la : ',gio,' gio ,',phut_le,' phut,',giay_le,' giay'); 

readln; 

end. 

Bài 24: viet chuong tronh nhap vào n so nguyon bat ky; dua ra so lon nhat 

program bai_24; 

var i,n,max:integer; a:array[1..100] of integer; 

write('nhap vao so cac so nguyen : '); readln(n); 

writeln('nhap tung gia tri cho tung so nguyen : '); 

for i:=1 to n do 

write('so thu ',i,' := '); readln(a[i]); 

end; 

max:=a[1]; 

for i:=1 to n do 

if max<a[i] then max:=a[i]; 

writeln('so nguyen co gia tri lon nhat trong day so nguyen vua nhap la: ',max); 

readln; 

end. 

Bài 25: don so VN hien nay là 85 trieu,ti le tang la 2%, sau bao nhieu nam nua so don dat 100 trieu 

program bai_25; 

var dem:integer; danso:real; 

dem:=0; danso:=85; 

repeat 

dem:=dem+1; 

danso:=danso*1.02; 

until danso>=100; 

writeln('so nam = ',dem); 

readln; 

end. 

Bài 26:nhap vào n so nguyon bat ky.dem và tonh tong nhung so chia het cho 5; 

program bai_26; 

uses crt; 

var a:array[1..100] of integer; 

n,i,dem,tong:integer; 

clrscr; 

write('nhap n = '); readln(n); 

writeln('nhap gia tri cho tung phan tu : '); 

for i:=1 to n do 

write(' - gia tri thu ',i,' la : '); readln(a[i]); 

end; 

dem:=0; 

tong:=0; 

for i:=1 to n do 

if a[i] mod 5 = 0 then 

dem:=dem+1; 

tong:=tong+a[i]; 

end; 

writeln('co ',dem,' gia tri chia het cho 5 va tong cua no la :',tong); 

readln; 

end. 

Bài 27: don so VN hien nay là 85 trieu,ti le tang la 2%, in ra man honh so dan cac nam 2011,2012,2013,2020; 

program bai_27; 

var i,nam:integer; 

sodan:real; 

writeln('so dan Viet Nam nam 2010 la 85 trieu nguoi,ti le tang 2%'); 

sodan:=85; 

for i:=2011 to 2013 do 

sodan:=sodan*1.02; 

writeln(' - so dan Viet Nam nam ',i,' la: ',sodan:3:3,' trieu nguoi'); 

end; 

nam:=2010; 

sodan:=85; 

repeat 

nam:=nam+1; 

sodan:=sodan*1.02; 

until nam=2020; 

writeln(' - so dan Viet Nam nam 2020 la: ',sodan:3:3,' trieu nguoi'); 

readln; 

end. 

Bài 28:tom coc chu so cu 3 chu so dang abc mà : abc=a3+b3+c3 

program bai_28; 

var a,b,c:integer; 

for a:=1 to 9 do 

for b:=0 to 9 do 

for c:=0 to 9 do 

if 100*a+10*b+c = a*a*a+b*b*b+c*c*c then 

writeln('so do la: ',a,b,c); 

readln; 

end. 

Bài 29:nhap vào 1 so nguyen va dem chu so cua nu. 

program bai_29; 

var dem,n,thuong:integer; 

write('nhap n = '); readln(n); 

dem:=0; 

thuong:=n; 

repeat thuong:=thuong div 10; 

dem:=dem+1; 

until thuong=0; 

writeln('so chu so cua n la : ',dem); 

readln; 

end.

Bài 30:nhap vào so nguyon và bieu dien o dang nhi phon 

program bai_30; 

var a:array[1..100] of integer; 

i,j,n:integer; 

write('nhap n = '); readln(n); 

i:=1; 

repeat 

a[i]:=n mod 2; 

n:=n div 2; 

i:=i+1; 

until n=0; 

write('sau khi doi sang thap phan la : '); 

for j:=i-1 downto 1 do write(a[j]); 

readln; 

end.