MN
1
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
28 tháng 11 2019
uses crt;
var i,t,d,x,y,j:integer;
st:string;
begin
clrscr;
writeln('cac so tu nhien co 4 chu so sao cho so do chia het cho 5 va tong cac chu so la 20 gom cac so:');
for i:=1000 to 9999 do
begin
t:=0;
str(i,st);
d:=length(st);
for j:=1 to d do
begin
val(st[j],x,y);
t:=t+x;
end;
if (i mod 5=0) and (t=20) then write(i:6);
end;
readln;
end.
BN
1
17 tháng 11 2017
program bai1;
uses crt;
var i,j,k: integer;
begin
clrscr;
write('cac so can tim la ');
for i:= 1 to 9 do
for j:= 0 to 9 do
for k:= 0 to 9 do
if (100*i+10*j+k) mod 4 = 0 then writeln(100*i+10*j+k);
readln;
end.
*Hơi nhiều số nha bạn.
19 tháng 1 2020
#include <iostream>
using namespace std;
int tong=0,x[1001],tongcs=0;
void xuli(int i)
{
for(int j=0;j<=9;j++)
{
if(j==0&&i==1)
continue;
x[i]=j;
tong*=10;
tong+=j;
tongcs+=j;
if(i==3)
{
if(tong%6==2&&tongcs==20)
{
cout<<tong<<endl;
}
}
else
{
xuli(i+1);
}
tongcs-=j;
tong-=j;
tong/=10;
}
}
int main()
{
xuli(1);
return 0;
}
28 tháng 11 2019
uses crt;
var i,t,d,x,y,j:integer;
st:string;
begin
clrscr;
writeln('cac so tu nhien co 3 chu so sao cho so do chia cho 6 du 2 va tong cac chu so la 20 gom cac so:');
for i:=100 to 999 do
begin
t:=0;
str(i,st);
d:=length(st);
for j:=1 to d do
begin
val(st[j],x,y);
t:=t+x;
end;
if (i mod 6=2) and (t=20) then write(i:6);
end;
readln;
end.
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long x;
//chuongtrinhcon
bool ktnt(long long n)
{
for (int i=2; i*i<=n; i++)
if (n%i==0) return(false);
return(true);
}
//chuongtrinhcon
bool ktso(long long n)
{
int a=n%10;
int b=n/10; b=b%10;
int c=n/100; c=c%10;
int d=n/1000; d=d%10;
if (a+b==c+d) return(true);
else return(false);
}
//chuongtrinhchinh
int main()
{
for (x=1000; x<=9999; x++)
if ((ktnt(x)==true) and (ktso(x)==true)) cout<<x<<" ";
return 0;
}
6 tháng 12 2020
uses crt;
var i,dv,ch,tr:integer;
begin
clrscr;
for i:=100 to 999 do
begin
dv:=i mod 10;
ch:=i div 10; ch:=ch mod 10;
tr:=i div 100; tr:=tr mod 10;
if (dv*ch*tr)=dv*dv*dv+ch*ch*ch+tr*tr*tr then write(i:6);
end;
readln;
end.
Var a,b,c,d:integer;
Begin
Writeln('Cac so can tim la');
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=0 to 9 do
If a + b + c + d = 20 then
writeln(a,b,c,d);
readln;
End.