Chỉ ra bốn bội của số m biết, a,m = 15, b m = 30, c m = 100
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.
a) m = 15;
Bốn bội của 15 là: 0, 15, 30, 45
b) m = 30;
Bốn bội của 30 là: 30; 60; 90; 150
c) m = 100.
Bốn bội của 100 là: 400; 500; 700; 800
m=15 thì B(m)=B(15)={15;30;60;90;...}
m=30 thì B(m)=B(30)={30;60;90;120;...}
m=100 thì B(m)=B(100)={1000;2000;300;500;...}
B(15)={0;15;30;45;60;....}
B(30)={0;30;60;90;120;...}
B(100)={0;100;200;300;400;...}
B(15)= { 0;15;30;45;60;75;90;.....}
B(30)={ 0;30;60;90;120;150;180;210;...}
B(100)={0;100;200;300;400;500;600;700;800;....}
- Yêu cầu, gợi ý các bạn khác chọn (k) đúng cho mình
1:
uses crt;
var k:array[1..50]of real;
a,i,dem:integer;
begin
clrscr;
write('a='); readln(a);
for i:=1 to a do
begin
write('k[',i,']='); readln(k[i]);
end;
{-------------------xu-ly-------------------------}
writeln('cac so khong am trong day la: ');
for i:=1 to a do
if k[i]>=0 then write(k[i]:4);
writeln;
dem:=0;
for i:=1 to a do
if k[i]<0 then inc(dem);
writeln('so so am trong day la: ',dem);
readln;
end.
2:
uses crt;
var b:array[1..30]of integer;
m,i:integer;
s:int32;
begin
clrscr;
write('nhap m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
{--------------------------------xu-ly-------------------------}
s:=1;
for i:=1 to m do
if b[i] mod 3=0 then s:=s*b[i];
writeln('tich cac so nguyen la boi cua 3 la: ',s);
writeln('cac so khong la boi cua 3 trong day la: ');
for i:=1 to m do
if b[i] mod 3<>0 then write(b[i]:4);
readln;
end.
9x16x12x12x123x111