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 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.
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.
#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;
}
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.
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.