var A:Array [1..100] of integer;

     n,i:byte;

begin

write('Trong day co so so hang la : n = '); readln(n);

for i:=1 to n do begin

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

                          readln(A[i]);

                         end;

d:=d+1;

for i:=1 to n - 2 do if A[i] + A[i+2] = 2*A[i+1] then d:=d+1;

if d = n - 2 then write('Day la cap so cong') else ('Day khong phai la cap so cong');

readln

end.

Thưa thầy em có chút ý kiến, phần chứng minh dãy giảm thì em không nói làm gì, nhưng mà cái chứng minh dãy bị chặn dưới bởi \(\sqrt{2}\) thì em thấy sai sai vì x₁ = a > 0 chứ chưa chắc đã bé hơn \(\sqrt{2}\), thầy có thể dùng quy nạp chứng minh : x_n > 0 với mọi n nguyên dương là được. Em xin hết ạ!

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

       i,n,x : byte;

      min:integer;

begin 

 write('Dãy có số phần tử là : '); readln(N);

for i:=1 to n do begin

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

                        readln(A[i]);

                        end;

Min : = A[1];

for i:=2 to n do if A[i] < min then begin

                                                    min:= A[i];

                                                    x:=i;

                                                    end;

write('Phần tử bé nhất trong dãy là : A[',x,']');

readln

end.

var a,b:string;

begin

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

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

if a[2] = b[length(b)-1] then write('Có trùng') else write('Không trùng');

readln

end.

Ở dòng 'Hết câu b' sửa S thành T giúp mình

var n,T,m,i : byte;

       s:string;

       code:integer;

 begin 

 write('n = '); readln(n); str(n,S);

 write(n, ' có ',length(s),' chữ số');  {Hết câu a}

for i:=1 to length(S) do begin

                                     val(S[i],m,code);

                                      if m mod 2 = 0 then T:=T+m;

                                      end;

write('Tổng các chữ số chẵn của ',n,' bằng : S = ',S); {Hết câu b}

readln

end.

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

      i,n,S,d:byte;

 begin

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

  for i:=1 to n do begin

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

                           readln(A[i]);

                          end;

d:=0; S:=0;

for i:=1 to n do if A[i] mod 2 = 0 then begin

                                                          d:=d+1;

                                                           S:=S+A[i];

                                                           end;

write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);

readln

end.

Tìm limu_n biết

\(\left\{{}\begin{matrix}u_1=2014\\u_{n+2}-u_{n+1}=-\dfrac{u_{n+1}}{n}+\dfrac{u_n}{n},n\ge1\end{matrix}\right.\)

Sử dụng ngôn ngữ lập trình Pascal để viết chương trình sau : 

Hãy nhập vào bàn phím một xâu S rồi đưa ra màn hình tất cả các từ của xâu đó.

Định nghĩ về từ : Từ là một dãy các kí tự liên tiếp cách nhau bởi dấu cách

var a:integer;

begin

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

 if a > 0 then write(sqrt(a)) else write(sqr(a));

readln

end.