tìm tất cả các số chia hết cho tích của chúng
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.
đáp án đây nha
11,12,15,24,36 nha
Tick tớ đi
Tớ sẽ giúp bạn thật nhiều nà
L i k e tớ nhá
uses crt;
var a:array[1..100]of integer;
i,n,dem,s,s1,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
s:=1;
for i:=1 to n do
if a[i]=3 then
begin
inc(dem);
s:=s*a[i];
end;
writeln('So phan tu bang 3 la: ',dem);
writeln('Tich cua chung la: ',s);
for i:=n downto 1 do
if a[i]<0 then
begin
vt:=i;
break;
end;
if vt=0 then writeln('Trong day khong co so am')
else writeln('So am cuoi cung la: ',a[vt]);
s1:=1;
for i:=1 to n do
if (a[i] mod 3=0) or (a[i] mod 4=0) then s1:=s1*a[i];
writeln('Tich cac phan tu chia het cho 3 hoac 4 la: ',s1);
writeln('Cac so nguyen la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
Bài 11:
Số thứ nhất là: 110 : (10 + 1) x 1 = 10
Số thứ hai là: 110 - 10 = 100
Đáp số: STN: 10 ; STH: 100.
bài 18
Gọi hiệu của 2 số là aa thì tổng 2 số là 7a và tích hai số là 192a
Số nhỏ là: (7a−a):2=3a
Số lớn là: 7a−3a=4a
Vì số lớn bằng tích chia số nhỏ nên số lớn bằng: 192a:3a=64
Số nhỏ là: 192a:4a=48
Vậy 2 số cần tìm là 64 và 48
Gọi hai số đó là a và b. Ta có:
a + b = a . b
Chỉ có đúng một cặp duy nhất .
a = b = 2
cá số đó chính là 0 ; 1 ; 2
chấm hết đúng ko bạn
đúng thf nhớ
Gọi hai số cần tìm là a, b
Với a = b = 0 là giá trị thỏa mãn
Với a hoặc b khác 0 thì
\(a+b=ab\Leftrightarrow ab-a=b\)
Ta thấy b = 1 không phải giá trị cần tìm nên ta xet b khác 1 ta có
\(\Leftrightarrow a=\frac{b}{b-1}=1+\frac{1}{b-1}\)
Để a nguyên dương thì (b - 1) phải là ước nguyên dương của 1 hay
b - 1 = 1
=> b = 2
=> a = 2
Vậy các bộ (a,b) = (0,0);(2,2)
https://olm.vn/hoi-dap/detail/7908912259.html
Bạn tham khảo nha