Cho dãy A hãy cho biết dãy A có tạo thành 1 cấp số nhân hay không ??

0 bình luận về “Cho dãy A hãy cho biết dãy A có tạo thành 1 cấp số nhân hay không ??”

1. program capsonhan;
   uses crt;
   var i,n:integer;
       A:array[1..1000] of integer;
       kt:boolean;
       k:real;
   begin
    clrscr;
    readln(n);
    For i:=1 to n do read(A[i]);
    k:=A[2]/A[1];
    For i:=2 to n do if A[i]=k*A[i-1] then kt:=true
      else
       begin
        kt:=false;
        break;
       end;
    If kt=true then writeln(‘Day la csn’)
    else writeln(‘Day ko la csn’);
    readln;
    readln;
   end.

   Bình luận

2. program capsonhan;
   uses crt;
   var S,i,d,n,j,dem:integer;
       A:array[1..500] of integer;
   begin
    clrscr;
    readln(n); d:=0; S:=0; dem:=0;
    For i:=1 to n do read(A[i]);
    For i:=1 to n do
     begin
      For j:=1 to A[i] do if A[i] mod j=0 then inc(d);
      if d=2 then
       begin
        inc(dem);
        S:=S+A[i];
        d:=0;
       end
      else d:=0;
      end;
    writeln(dem);
    writeln(S);
    readln;
    readln;
   end.

   Bình luận