Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
PGD FF
Bờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích chọn cặp số giá trị lớn. Vì vậy, để tính toán dễ hơn, trong mỗi ván chơi Cuội sẽ cho bạn biết dãy số Bờm đưa ra và nhờ bạn xác định tích 𝑃 𝑋 × 𝑌 lớn nhất có thể phù hợp với...
Đọc tiếp

Những câu hỏi liên quan
gấu trúc VN
Xem chi tiết
phạm thanh vân
Xem chi tiết
Vũ Xuân Giang
Xem chi tiết
Minh Lệ
1 tháng 8 2021 lúc 16:14

Program HOC24;

var n,a,i,d: integer;

x: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': '); readln(x[i]);

end;

write('Nhap A: '); readln(a);

d:=0;

for i:=1 to n do if x[i]=a then d:=1;

if d=1 then write(A,' xuat hien trong day') else write(A,' khong xuat hien trong day');

readln

end.

Anh Phạm
1 tháng 8 2021 lúc 18:03

uses crt;

var n,i,a1:integer;

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

begin

writeln('nhap n'); readln(n);

writeln('nhap a'); readln(a1);

for i:=1 to n do

begin

readln(a[i]);

if (a[i]=a1) then

begin

write(' so a co xuat hien trong day');

break;

end;

if (i<n) then  continue;

writeln('Khong co so a trong day');

end;

readln;

end.

phạm quang huy
4 tháng 8 2021 lúc 10:30

uses crt;

var b:array[1..1000]of longint;n,a,i,d:longint;

begin

clrscr;

write('nhap so phan tu');readln(n);

for i:=1 to n do 

begin

write('nhap phan tu thu',i,':');readln(b[i]);

end;

write('nhap so can tim kiem trong day so vua nhap:');readln(a);

d:=0;

for i:=1 to n do if(b[i]=a)then d:=1;

if d=0 then writeln('so',a,'ko co trong day so')else writeln('so',a,'co trong day so');

readln;

end.

 

vi lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 10 2021 lúc 22:58

Bài 3: 

a: \(A\cup B=\left[-4;7\right]\)

\(A\cap B=\left[1;4\right]\)

A\B=[-4;1)

B\A=(4;7]

b: A\(\cup\)B=R

A\(\cap\)B=\(\varnothing\)

A\B=A

B\A=B

TRIẾT PHẠM
Xem chi tiết
vi lê
Xem chi tiết
Văn Quá
9 tháng 10 2021 lúc 20:34

Bài1:

a)  𝐴 ∩ 𝐵={0; 2; 4; 6; 9}

𝐴 \ 𝐵={1; 3; 5}

b) A∩(B\C)={0; 2; 9}

    (A∩B)\C={0; 2; 9}

=> A∩(B\C)=(A∩B)\C

 

Minh Lệ
Xem chi tiết
HaNa
24 tháng 8 2023 lúc 5:05

\(\dfrac{9}{8}=1,125\)

\(\dfrac{31}{32}=0,96875\)

Có: \(1,125>0,96875\)

\(\dfrac{9}{8}>\dfrac{31}{32}\)

=> Quả bưởi của Bờm nặng hơn quả thanh long của Cuội.

Vậy Cuội nói sai.

ngo minh duc
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 9:26

Câu 7:

const fi='dayso.inp'

fo='dayso.out'

var f1,f2:text;

a,b:array[1..100]of integer;

i,n,dem,j,t,kt,dem1:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,'Tong cua day so la: ',t);

b[1]:=a[1];

dem:=1;

for i:=1 to n do 

  begin

kt:=0;

for j:=1 to dem do 

  if a[i]=b[j] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to n do 

  if b[i]=a[j] then inc(dem1);

writeln(f2,b[i],' xuat hien ',dem1,' lan');

close(f1);

close(f2);

end.

khoi khoi
Xem chi tiết