Những câu hỏi liên quan
f4rh32h3c
Xem chi tiết
Băng Dii~
3 tháng 6 2017 lúc 20:41

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

Bình luận (0)
f4rh32h3c
4 tháng 6 2017 lúc 18:25

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

Bình luận (0)
KhảTâm
6 tháng 8 2019 lúc 7:46

a. Gọi m số nguyên đã cho là \(a_1,a_2,a_3,...a_m.\)Ta lập m tổng:

\(S_1=a_1;S_2=a_1+a_2;S_3=a_1+a_2+a_3...;S_m=a_1+a_2+...+a_m\)

Có tất cả hai trường hợp:

- Một trong các tổng trên chia hết cho m. Đó là điều phải chứng minh.

- Không có một tổng nào trong các tổng trên chia hết cho m; như vậy số dư khi chia cho mỗi tổng trên cho m là 1 số từ 1 đến m-1 (có tất cả m-1 số dư). Ta có m tổng, do đó theo nguyên tắc Dirichlet, phải có 2 tổng cùng số dư \(\left(\ne0\right)\)khi chia cho m. Hiệu của hai tổng này (là tổng của một số các số đã cho) chia hết cho m(đpcm)

b. Ta lập 1990 số có dạng:1991

                                           1991 1991

                                           1991 1991 1991

                                           ...

                                           1991 1991 ... 1991

                                                                (bốn chữ số 1,9,9,1 được lặp lại 1990 lần)

Chia các số trên đây cho 1990, ta có 1989 số dư khác 0. Theo nguyên tắc Dirichlet, phải có ít nhất hai số cùng một số dư, hiệu hai số này (là một số có dạng 1991 1991 ... 0000) chia hết cho 1990(đpcm)

Bình luận (0)
James Pham
Xem chi tiết
Bé Kunz
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:24

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ình luận (0)
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 22:25

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.

Bình luận (0)
scar titan
28 tháng 7 2021 lúc 10:11

python có ko bạn

 

Bình luận (0)
Ngọc Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2022 lúc 20:59

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;

}

Bình luận (0)
Bảo Châu Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2022 lúc 13:52

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";

}

Bình luận (0)
XitsuKata
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2022 lúc 13:52

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";

}

Bình luận (0)
Vũ Trần Minh Kiên
Xem chi tiết
Thuận Quốc
28 tháng 3 2016 lúc 20:48

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 

Bình luận (0)
nguyen thi be
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 12 2020 lúc 11:58

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ình luận (0)
phamthiminhanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:42

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ình luận (0)
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:46

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.

Bình luận (0)
Yoriichi_Tsugikuni ( ɻɛɑ...
11 tháng 6 2021 lúc 14:55

Scratch hay java

Bình luận (0)
 Khách vãng lai đã xóa