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.

3 tháng 2 2016

so thu nhat=136529

so thu 3 : 409587

so thu 2 :  273508

so thu 4; 546116

................toi so thu 7 la het

3 tháng 6 2017

Mình chỉ làm được câu b )

1990 = ( 100 + 99 ) . 10

        = [ 100 + ( 100 - 1 ) ] . 10

        = 1000 + 1000 - 10

        = 2000 - 10

Số 19911991....1991000....000 chia hết cho 2000 ( áp dụng tính chất chia hết cho 1000 và 2 )

Tiếp đó thì số đó còn lại 19911991...1991000... chia hết cho 10 ( áp dụng tính chất chia hết cho 10 ) nên có tồn tại số có dạng 19911991 ... 000 ... 000 chia hết cho 1990

4 tháng 6 2017

cảm ơn bạn nhé Nguyen ngoc dat

Bài 1: 

uses crt;

var a:array[1..200]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 5=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 5 la: ',t);

readln;

end.

Bài 2: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln(st);

readln;

end.

1:

#include <bits/stdc++.h>

using namespace std;

long long x;

int main()

{

cin>>x;

if (x%5==0) cout<<"Yes";

else cout<<"No";

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x;

int main()

{

cin>>x;

if (x%15==0) cout<<"Yes";

else cout<<"No";

return 0;

}

24 tháng 12 2022

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

24 tháng 12 2022

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

28 tháng 3 2016

Bạn hỏi câu nào mà cso ƯCLN hay tìm BCNN của 3 số abc hay là các dạng toán về tìm số dư của 1 lũy thừa cho số tự nhiên ( Các dạng toán liên quan đến casio thì mình giải cho 

29 tháng 12 2020

uses crt;

var n,i,t:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

t:=0;

for i:=1 to n do 

  if i mod 3=0 then t:=t+i;

writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);

readln;

end.

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.