K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

28 tháng 4 2023

\(P\left(x\right)=x^3-x^2-4x+4=0\\ \Leftrightarrow x^2\left(x-1\right)-4\left(x-1\right)=0\\ \Leftrightarrow\left(x^2-4\right).\left(x-1\right)=0\\ \Leftrightarrow\left(x-2\right).\left(x+2\right).\left(x-1\right)=0\\ \Leftrightarrow\left[{}\begin{matrix}x-2=0\\x+2=0\\x-1=0\end{matrix}\right.\Leftrightarrow\left[{}\begin{matrix}x=2\\x=-2\\x=1\end{matrix}\right.\)

Chọn B

uses crt;
var d,n,k,kt1,i,j,x,kt2,u,kt:longint;
    st1,st2,st:string;
    y:integer;
begin
clrscr;
write('nhap so k='); readln(k);
if k>1 then begin
               d:=1;
               n:=3;
               repeat
                   repeat
                       kt:=0;
                       n:=n+2;
                       for i:=2 to trunc(sqrt(n)) do
                         if n mod i=0 then kt:=1;
                       if kt=0 then str(n,st1);
                   until kt=0;
                   {----------------------------------------}
                   repeat
                       kt:=0;
                       n:=n+2;
                       for j:=2 to trunc(sqrt(n)) do
                         if n mod j=0 then kt:=1;
                       if kt=0 then str(n,st2);
                   until kt=0;
                   {----------------------------------------}
                   kt:=0;
                   st:=st1+st2;
                   val(st,x,y);
                   for i:=2 to trunc(sqrt(x)) do
                     if x mod i=0 then kt:=1;
                   if kt=0 then d:=d+1;
               until d=k;
            end;
if k=1 then write('so nguyen to ghep thu ',k,' la 23')
else writeln('so nguyen to ghep thu ',k,' la: ',x);
readln;
end.

uses crt;

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

i,n,k,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

t:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t:=t+a[i];

writeln('Tong cac so la boi cua ',k,' la: ',t);

readln;

end.

25 tháng 2 2021

bọn em học C++ ạ :<<

Một dãy số tự nhiên được gọi là dãy tăng bội 3 nếu dãy chỉ gồm một số và số đó chia hết cho 3, hoặc dãy gồm các số khác nhau theo thứ tự tăng dần và tổng của các số trong dãy chia hết cho 3.Ví dụ, dãy số: 6 và dãy số: 2, 3, 4 là các dãy tăng bội 3; còn các dãy số: 2, 3, 5, dãy số: 2, 4, 3 và dãy số: 3, 3 không phải là dãy tăng bội 3.1.  Kiểm tra xem dãy số nào dưới đây là dãy tăng...
Đọc tiếp

Một dãy số tự nhiên được gọi là dãy tăng bội 3 nếu dãy chỉ gồm một số và số đó chia hết cho 3, hoặc dãy gồm các số khác nhau theo thứ tự tăng dần và tổng của các số trong dãy chia hết cho 3.

Ví dụ, dãy số: 6 và dãy số: 2, 3, 4 là các dãy tăng bội 3; còn các dãy số: 2, 3, 5, dãy số: 2, 4, 3 và dãy số: 3, 3 không phải là dãy tăng bội 3.

1.  Kiểm tra xem dãy số nào dưới đây là dãy tăng bội 3? Vì sao?

a) Dãy số: 3

b) Dãy số: 3, 5

c) Dãy số: 3, 5, 10

d) Dãy số: 12, 9, 6, 3

e) Dãy số: 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60

2.  Hãy tìm tất cả các dãy tăng bội 3 được thành lập bằng cách lấy ra một số tùy ý các số trong 5 số: 3, 5, 6, 9 và 10. Viết các dãy tăng bội 3 tìm được, mỗi dãy trên một dòng, các số trong dãy cách nhau một dấu phẩy.

1
6 tháng 4 2017

a) dãy số: 3 là dãy số tăng bội 3

b) dãy số: 3, 5 Không phải là dãy số tăng bội 3

b) dãy số: 3, 5, 10 là dãy số tăng bội 3

d) dãy số: 12, 9, 6, 3 Không phải là dãy số tăng bội 3

e) dãy số: 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60  là dãy số tăng bội 3

13 tháng 8 2021

em nào địt ko

24 tháng 3 2021

Bạn ơi giúp mình với chiều nay mình thi rồi

 

Câu 2: 

uses crt;

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

i,n,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

tb:=0;

for i:=1 to n do 

  tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

19 tháng 3 2023

Program HOC24;

var i,n: integer;

a: array[1..1000] of integer;

t: longint;

f1,f2: text;

const fi='DATA1.TXT';

fo='KQ1.TXT';

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,n);

for i:=1 to n do read(f1,a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

writeln(f2,t);

for i:=1 to n do if a[i] mod 5=0 then write(f2,a[i],' ');

close(f1); close(f2);

end.