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.

18 tháng 7 2021

hợp số là 4;6;28;39 vì ngoài 1 và chính nó thì chúng còn có thể chia cho số khác

số nguyên tố là 17;11 vì chúng chỉ có thể chia cho 1 và chính nó

6 tháng 10 2015

Số lớn nhất lập được là 4321,số nhỏ nhất lập được là 1234.Nếu tồn tại 2 số lập được là x và y mà x là bội của y thì thương của phép chia x cho y là 2 và 3.Nếu thương là 2 thì các chữ số của x phải là 2,4,6,8 trái vời đề bài .Nếu thương là 3 thì x chia hết cho 3.Điều này không thể xảy ra vì số x có tổng các chữ số là 10 chia hết cho 3

29 tháng 6 2015

SỐ LỚN NHẤT LẬP ĐƯỢC LÀ :4321,SỐ NHỎ NHẤT LẬP ĐƯỢC LÀ:1234 ,NẾU TỒN TẠI HAI SỐ LẬP ĐƯỢC X VÀ Y MÀ X LÀ BỘI CỦA Y THÌ THƯƠNG CỦA PHÉP CHIA X CHO Y LÀ 2 VÀ 3,NẾU THƯƠNG LÀ 2 THÌ CÁC CHỮ SỐ CỦA X PHẢI LÀ 2;4;6;8;TRÁI VỚI ĐỀ BÀI ,NẾU THƯƠNG LÀ 3 THÌ X CHIA HẾT CHO 3 ,ĐIỀU NÀY KHÔNG THỂ XẢY RA VÌ SỐ X CÓ TỔNG CÁC CHỮ SỐ LÀ 10 CHIA HẾT CHO 3

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

for (i=1; i<=20; i++)

if (i%4==0) t=t+i;

cout<<t;

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

int i,dem;

int main()

{

dem=0;

for (i=1; i<=20; i++)

if ((i%2==1) and (i%3==0)) dem++;

cout<<dem;

return 0;

}

30 tháng 4 2022

\(\dfrac{5}{4}\)

uses crt;

var a:array[1..1000]of integer;

i,n,t,t1,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

t1:=0;

dem:=0;

dem1:=0;

for i:=1 to n do  

begin

if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end

else begin

t1:=t1+a[i];

inc(dem1);

end;

end;

writeln('So luong so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

writeln('So luong so le la: ',dem1);

writeln('Tong cac so le la: ',t1);

readln;

end.

25 tháng 2 2021

Bọn em học C++ ạ :<<

 

Câu 1: 

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do 

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

writeln(t);

readln;

end.

Câu 2: 

uses crt;

var i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 20 do 

  if i mod 3=0 then dem:=dem+1;

writeln(dem);

readln;

end.