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 ??
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm