Bài 9. Làm việc với dãy số

uses crt;

var a,b,c,min:real;

begin

clrscr;

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('So nho nhat la: ',min);

readln;

end.

ai ho toi voi

uses crt;

var i,sokm:integer;

tong:real;

begin

write('nhap so km: ');readln(sokm);

for i:=1 to n do

begin

if i=1 then tong:=tong+5000;

else if tong>=2 and tong<=5 then  tong:=tong+4500;

else tong:=tong+3500;

end;

if sokm>120 then tong=(tong/10)*9;

writeln('so tien la ',tong,' dong');

readln;

end.

Var km:longint;

st:real;

Begin

write('Nhap vao so km da di ');readln(km);

if km = 1 then write('So tien la 5000');

if (km > 1) and (km<= 5) then write('So tien la ',5000+(km-1)*4500);

if (km >= 6) and (km <= 20) then write('So tien la ',5000 + 4*4500+(km-5)*3500)

if km>120 then

begin

st:=5000+4*4500+(km-5)*3500-0.1*(5000+4*4500+(km-5)*3500);

write(st:15:2);

end;

readln;

end.

Lời giải :

B1: nhập 2 biến x,y

B2: Nếu x>y tráo đổi gía trị của x và y, chuyển đến bước 3 . Nếu y > x thì 2 số đã theo thứ tự có giá trị không giảm , chuyển đến bước 3

B3: In ra kết qủa x, y và kết thúc thuật toán 

uses crt; var n,d,i,x,y,t,kt,t1,j:integer; st:string; begin clrscr; repeat write('Nhap n='); readln(n); until (1000<=n) and (n<=9999); str(n,st); d:=length(st); t:=0; for i:=1 to d do begin val(st[i],x,y); t:=t+x; end; writeln('Tong cac chu so cua ',n,' la: ',t); if t>1 then begin kt:=0; for i:=2 to trunc(sqrt(t)) do if t mod i=0 then begin kt:=1; break; end; if kt=0 then writeln(t,' la so nguyen to') else writeln(t,' khong la so nguyen to'); end else writeln(t,' khong la so nguyen to'); t1:=0; for j:=1 to t-1 do if t mod j=0 then t1:=t1+j; if t1=t then writeln(t,' la so hoan hao') else writeln(t,' khong la so hoan hao'); if trunc(sqrt(t))=sqrt(t) then writeln(t,' la so chinh phuong') else writeln(t,' khong la so chinh phuong'); readln; end.

uses crt; var n,d,i,x,y,t,kt,t1:integer; st:string; begin clrscr; repeat write('Nhap n='); readln(n); until (1000<=n) and (n<=9999); str(n,st); d:=length(st); t:=0; for i:=1 to d do begin val(st[i],x,y); t:=t+x; end; writeln('Tong cac chu so cua ',n,' la: ',t); if t>1 then begin kt:=0; for i:=2 to trunc(sqrt(t)) do if t mod i=0 then begin kt:=1; break; end; if kt=0 then writeln(t,' la so nguyen to') else writeln(t,' khong la so nguyen to'); end else writeln(t,' khong la so nguyen to'); t1:=0; for i:=1 to t-1 do if t1 mod i=0 then t1:=t1+i; if t1=t then writeln(t,' la so hoan hao') else writeln(t,' khong la so hoan hao'); if trunc(sqrt(t))=sqrt(t) then writeln(t,' la so chinh phuong') else writeln(t,' khong la so chinh phuong'); readln; end.

uses crt;

var i,dv,ch,tr:integer;

begin

clrscr;

for i:=100 to 999 do

begin

dv:=i mod 10;

ch:=i div 10; ch:=ch mod 10;

tr:=i div 100; tr:=tr mod 10;

if (dv*ch*tr)=dv*dv*dv+ch*ch*ch+tr*tr*tr then write(i:6);

end;

readln;

end.

uses crt;

var n,t,i,kt,j,t1:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n-1 do

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

if t=n then writeln(n,' la so hoan hao')

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

writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

writeln;

t1:=0;

for i:=2 to n do

t1:=t1+i;

writeln('Tong cac so trong khoang tu 2 toi ',n,' la: ',t1);

if sqrt(t1)=trunc(sqrt(t1)) then writeln(t1,' la so chinh phuong')

else writeln(t1,' khong la so chinh phuong');

readln;

end.

Uses crt; Var St,St1,x:string; i,j,k,l:longint; Begin readln(St); For i:=1 to length(St) do If (St[i] in ['a'..'z']) then If not (St[i-1] in ['0'..'9']) then Insert('1',St,i); For i:=1 to length(St) do Begin If St[i] in ['0'..'9'] then For j:=i+1 to length(St) do If St[j] in ['a'..'z'] then break; x:=copy(St,i,j-i); Val(x,k); For l:=1 to k do St1:=St1+St[j]; end; Write(St1); 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.

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.