Viết chương trình tìm và in ra màn hình những số có 3 chữ số vừa chia hết cho 2, vừa chia hết cho 3, vừa chia hết cho 5. Chú ý in 5 số trên 1 dò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.
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then t:=t+a[i];
writeln(t);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n do
if (a[i]+a[i+1] mod 10=0) then
begin
writeln(a[i],' ',a[i+1]);
writeln(i,' ',i+1);
end;
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++)
if (i%3==0) t+=i;
cout<<t<<endl;
for (i=1; i<=n; i++)
if (a[i]<0) cout<<a[i]<<" ";
return 0;
}
bprogram min
uses crt
var A: array [1...250] of integer
tong :integer;
begin
tong:=0
writeln(‘nhap n:’); readln (n)
forr i:=1 to n do
begin
writeln (‘nhap phan tu thu ‘,i);
readln (A[i] );
end
for i:=1 to n do
begin
if (A[i] mod 3=0)
then tong:=tong +A[i];
end
writeln (Tong cac phan tu chia het cho 3)
readln ;
end
a) Để 75.. chia hết cho 2 thì cần điền vào ô trống một trong các chữ số 0; 2; 4; 6; 8.
Nhưng 75 … không chia hết cho 5 nên ta gọi loại 0 và chỉ điền vào ô trống một trong các chữ số 2; 4; 6; 8.
b) Để số 75 … chia hết chó 5 thì ta cần điền vào ô trống 0, hoặc 5.
Nhưng số 75 … lại chia hết cho 2 nữa nên ta chỉ điền vào ô trống chữ số 0 : 750.
c) Để số 75… chia hết cho 9 ta phải có :
7 +5 + … = 12 + … chia hết cho 9.
Vậy ta cần điền 6 vào ô trống để hết cho 2.
Vì 756 tận cùng là 6 nên chia hết cho 2.
Vì 756 chia hết cho 9 nên cũng phải chia hết cho 3.
a) Để 75.. chia hết cho 2 thì cần điền vào ô trống một trong các chữ số 0; 2; 4; 6; 8.
Nhưng 75 … không chia hết cho 5 nên ta gọi loại 0 và chỉ điền vào ô trống một trong các chữ số 2; 4; 6; 8.
b) Để số 75 … chia hết chó 5 thì ta cần điền vào ô trống 0, hoặc 5.
Nhưng số 75 … lại chia hết cho 2 nữa nên ta chỉ điền vào ô trống chữ số 0 : 750.
c) Để số 75… chia hết cho 9 ta phải có :
7 +5 + … = 12 + … chia hết cho 9.
Vậy ta cần điền 6 vào ô trống để hết cho 2.
Vì 756 tận cùng là 6 nên chia hết cho 2.
Vì 756 chia hết cho 9 nên cũng phải chia hết cho 3.
uses crt;
var i,n,d:longint;
begin
d:=0;
writeln('nhapn=');read(n);
for i:=1 to n do
begin
if i mod 3=0 then write(i,' ');
if i mod 3=0 then d:=d+i;
end;
writeln('tong=',d);
readln;
end;
program bai_tap;
var i,d:integer;
begin
d:=0;
for i:= 100 to 999 do
begin
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 5 = 0 ) then
begin
write(i,' ');
inc(d);
end;
if d = 5 then
begin
d:=0;
writeln;
end;
end;
readln
end.
program bai1;
var a,b,c:longint;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (((a*100+b*10+c) mod 2=0) and ((a*100+b*10+c) mod 3=0) and ((a*100+b*10+c) mod 5=0)) then write(a*100+b*10+c);
readln
end.