Nguyễn Minh Lệ

Bạn phải cho biết kiểu số của 1111 nữa chứ?

a. 118₁₀ -> 0110111₂

118₁₀ -> 66₁₆

b) 101100₂ -> 44₁₀

c) 74₁₆ -> 116₁₀

Program HOC24;

var n: longint;

begin

write('Nhap n : '); readln(n);

write('So gap 3 lan so do la : ',n*3);

readln

end.

Program hoc24;

var n: integer;

t: longint;

begin

write('Nhap so KW da su dung : '); readln(n);

if n=0 then write('So tien phai tra trong thang la :',0,'$') else

if n>0 then

begin

if n<=100 then t:=5*n else t:=100*5;

if (n>100) and (n<151) then t:=t+7*(n-100)

else if n>150 then t:=t+7*50;

if (n>150) and (n<201) then t:=t+10*(n-150)

else if n>200 then t:=t+10*50;

if (n>200) and (n<301) then t:=t+15*(n-200)

else if n>300 then t:=t+15*100;

if n>300 then t:=t+20*(n-300);

end else write('So KW da su dung nhap khong hop le');

write('So tien phai tra trong thang la : ',t,'$');

readln

end.

Program HOC24;

var n,i,d: integer;

a: array[1..32000] of integer;

begin

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

d:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,' : ');

readln(a[i]);

if a[i]=2004 then d:=d+1;

end;

if d<>0 then write(2004) else write(-1);

readln

end.

Program HOC24;

var n: longint;

begin

write('Nhap n : '); readln(n);

n:=n mod 10;

if n mod 2=0 then write('Chu so hang don vi cua so do la so chan')

else write('Chu so hang don vi cua so do khong phai la so chan');

readln

end.

Program HOC24;

var n,i: integer;

function tcs(x: integer): integer;

var t: integer;

begin

t:=0;

while x<>0 do

begin

t:=t + (x mod 10);

x:=x div 10;

end;

tcs:=0;

end;

begin

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

if n>0 then

begin

for i:= n downto 1 do

if tcs(n)-tcs(i) = 1 then

begin

write('M= ',i);

break;

end;

end;

readln

end.

Program HOC24;

var hoten: string;

bacluong,ngaycong,phucap,heso,tamung: longint;

tienluong,tienlinh : real;

begin

write('Nhap ho va ten : '); readln(hoten);

write('Nhap bac luong : '); readln(bacluong);

write('Nhap ngay cong trong thang : '); readln(ngaycong);

write('Nhap phu cap : '); readln(phucap);

write('Nhap he so trach nhiem : '); readln(heso);

write('Nhap so tien tam ung : '); readln(tamung);

tienluong:=bacluong/30*ngaycong*heso+phucap;

tienlinh:=tienluong-tamung;

writeln('HO VA TEN : ',hoten);

writeln('TIEN LUONG : ',tienluong:1:3);

write('TIEN CON DUOC LINH : ',tienlinh:1:3);

readln

end.

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..32000] of integer;

begin

write('Nhap n : '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if (a[i]>50) and (a[i] mod 10=0) then t:=t+a[i];

write('Tong cac phan tu lon hon 50 va chia het cho 10 la : ',t);

readln

end.

Program HOC24;

var n: byte;

dem: integer;

i,x,x1: longint;

function nt(b: longint): boolean;

var j: longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

function snt(a: longint): boolean;

var d,d1: byte;

begin

d:=0; d1:=0;

while a<>0 do

begin

if nt(a) then d:=d+1;

d1:=d1+1;

a:=a div 10;

end;

if d1=d then snt:=true else snt:=false;

end;

begin

write('Nhap so N: '); readln(n);

case n of

1: begin x:=1; x1:=9; end;

2: begin x:=10; x1:=99; end;

3: begin x:=100; x1:=999; end;

4: begin x:=1000; x1:=9999; end;

5: begin x:=10000; x1:=99999; end;

6: begin x:=100000; x1:=999999; end;

7: begin x:=1000000; x1:=9999999; end;

8: begin x:=10000000; x1:=99999999; end;

9: begin x:=100000000; x1:=999999999; end;

end;

dem:=0;

for i:=x to x1 do

if nt(i) then

if snt(i) then

begin

write(i,' ');

inc(dem);

end;

writeln;

write('Tat ca co ',dem,' so');

readln

end.

Program HOC24;

var k,i,n: integer;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap k : '); readln(k);

write('Nhap N : '); readln(N);

if (k>0) and (k<n) then

begin

write('Cac so nguyen to trong khoang [',k,'..',n,'] la : ');

for i:=k to N do if nt(i) then write(i,' ');

readln

end.

2.

Program HOC24;

var i,n,min,min2: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

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

end;

min:=a[1]; min:=a[1];

for i:=1 to n do if a[i]<max then min:=a[i];

for i:=1 to n do if (a[i]<min2) and (a[i]<>min) then min2:=a[i];

writeln('So lon thu nhi cua day la : ',min2);

write('Cac chi so la : ');

for i:=1 to n do if a[i]=min2 then write(i,' ');

readln

end.

1.

Program HOC24;

var i,n,max,max2: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1]; max2:=a[1];

for i:=1 to n do if a[i]>max then max:=a[i];

for i:=1 to n do if (a[i]>max2) and (a[i]<>max) then max2:=a[i];

writeln('So lon thu nhi cua day la : ',max2);

write('Cac chi so la : ');

for i:=1 to n do if a[i]=max2 then write(i,' ');

readln

end.

Program HOC24;

var i,n,max,min: integer;

a: array[1..32000] of integer;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do read(a[i]);

readln;

min:=a[1]; max:=a[1];

for i:=1 to n do

begin

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

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

end;

for i:=min to max do if i<>a[i] then write(i,' ');

readln

end.

Program HOC24;

var n: real;

m,max: integer;

begin

write('Nhap so thuc N : '); readln(n);

n:=trunc(n);

max:=0;

while n<>0 do

begin

m:=n mod 10;

if m>max then max:=m;

n:=n div 10;

end;

write(max);

readln

end.