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 dãy đó (nghĩa là tồn tại cặp số (𝑋, 𝑌) sao cho tích của chúng bằng 𝑃 mà tổng và hiệu của chúng đều xuất hiện trong dãy Bờm đưa ra). Dữ liệu Dòng 1: số nguyên 𝑁 (2 ≤ 𝑁 ≤ 50) là số phần tử của dãy Bờm đưa ra Dòng 2: 𝑁 số nguyên dương đôi một phân biệt là các phần tử dãy Bờm đưa ra, các số đều trong phạm vi 1 … 100. Kết quả Dòng 1: số nguyên là tích lớn nhất tính được. Số này chắc chắn tồn tại vì Bờm không bao giờ chơi gian dối. Ví dụ BDOANSO.INP 3 1 4 5 BDOANSO.OUT 6
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.
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.
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.
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
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.