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.

đó là 8/15         ;          5/24     và   3/40

mình thi Violympic cáp tỉnh mắc nhõn câu này !!!

4 phần tử nha chú ý câu hỏi hỏi số pt cơ mà

uses crt;

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

n,i:integer;

begin

clrscr;

repeat

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

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

xau = input('Nhập vào một xâu kí tự có độ dài n: ')

n=len(xau)

dem=0

for i in range(n):

     if xau[i].isdigit():

          dem+=1

print(' Số kí tự chữ số trong xâu: ', dem)

Đáp án C

+ Bước sóng: λ = v/f = 0,6/40 = 1,5cm

+ Số cực đại giao thoa trên đoạn thẳng nối hai nguồn bằng số giá trị k nguyên thoả mãn:

- A B λ < k < A B λ   ⇔   -   10 1 , 5 < k < 10 1 , 5   ⇔ - 6 , 67 < k < 6 , 67   ⇒ k   =   0 ;   ± 1 ,   ± 2 , . . . . , ± 6

+ Ta có: S A M B   =   1 2 A B . M B   ⇒ ( S _{A M B} ) m i n   ⇔ ( M B ) m i n   ⇔  M thuộc cực đại ứng với k_max => d₁ – d₂ = 6λ = 9cm.

+ Áp dụng định lí Pi – ta – go trong tam giác vuông AMB có:

A B 2 + d 2 2   =   d 1 2   ⇔ 10 2 + d 2 2   =   ( d ₂ + 9 ) 2 ⇒ d 2   =   19 18 c m   =   M B   ⇒ S A M B   =   1 2 A B . M B = 1 2 . 10 . 19 18 =   5 , 28 c m 2

Đáp án C

+ Bước sóng: λ = v/f = 0,6/40 = 1,5cm

+ Số cực đại giao thoa trên đoạn thẳng nối hai nguồn bằng số giá trị k nguyên thoả mãn:

+ Áp dụng định lí Pi – ta – go trong tam giác vuông AMB có: