Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

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

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

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

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

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

\(\text{10% tiền lãi là :}\)

\(\text{ 19 800 : 100 * 10 = 1 980 ( đồng )}\)

\(\text{Cửa hàng phải bán với giá tiền được lãi 10% là : }\)   

\(\text{19 800 + 1 980 = 21 780 ( đồng )}\)

\(\text{Đáp số : 21 780 đồng}\)

10% tiễn lãi là ;

19 800 : 100 x 10 = 1 980

Cửa hàng phải bán với giá là

19 800 + 1 980 = 21 780 đồng

Đáp số 21 780 đồng

Họ cần bán giá so với số tiền lúc đầu là: 100 + 10 = 110 (%)

Cửa hàng cần bán với giá là: 19800 x 110 : 100 = 21780 (đồng)

Đáp số: 21780 đồng

Lãi 40% tức là  bằng 140% so với giá mua

Bán 2/5 số hàng với giá 140% giá mau thì thu được là:

140 × 2/5 = 280/5%

Bán lỗ 10% tứa là bằng 90% so với giá mua

Bán 3/5 số hàng với giá 90% giá mua thì thu được là:

90 × 3/5 = 270/5% 

Tổng số % thu về là:

280/5% + 270/5% = 110% 

Lãi chiếm số % là:
110% - 100% = 10%

Số tiền để mau hàng nhập vào là:

1 200 000 : 10 × 100 = 12 000 000 (đồng)

 ĐS: 12 000 000 đồng.         cho mik nha

uses crt;

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

i,n,dem,kt,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

t:=abs(a[2]-a[1]);

kt:=0;

for i:=1 to n do 

if t<>abs(a[i]-a[i-1]) then 

begin

kt:=1;

break;

end;

if kt=0 then writeln('Day la cap so cong')

else writeln('Day khong la cap so cong');

readln;

end.

Chẳng hạn: 5 + 55 : 55 = 6; (55 + 5) : (5 + 5) = 6.

c) Phương sai là  s 2 = 1 , 54 .