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.

27 tháng 11 2018

Vào đây tham khảo nha ! : Câu hỏi của Phạm Chí Cường - Toán lớp 6 | Học trực tuyến

a)

uses crt;

var n,i,t,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i-1 do 

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

if t=i then write(i:4);

end;

readln;

end.

b)

uses crt;

var gt:real;

i,n:integer;

begin

clrscr;

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

gt:=1;

for i:=1 to n do 

 gt:=gt*i;

writeln(gt:0:0);

readln;

end.

15 tháng 4 2019

Gọi các ước nguyên tố của số N là p ; q ; r và p < q < r

\(\Rightarrow p=2;q+r=18\Rightarrow\orbr{\begin{cases}q=5;r=13\\q=7;r=11\end{cases}\Rightarrow\orbr{\begin{cases}N=2^a.5^b.13^c\\N=2^a.7^b.11^c\end{cases}}}\)

 Với a ; b; c \(\in\)N  và  \(\left(a+1\right)\left(b+1\right)\left(c+1\right)=12\Rightarrow12=2.2.3\)

Do đó N có thể là \(2^2.5.13;2.5^2.13;2.5.13^2;2^2.7.11;2.7^2.11;2.7.11^2\)

N nhỏ nhất nên \(N=2^2.5.13=260\)

uses crt;

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

n,dem,i,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

 read(a[i]);

for i:=1 to n do 

  begin

dem:=0;

for j:=1 to a[i] do 

  if a[i] mod j=0 then inc(dem);

if dem mod 2=0 then write('0 ')

else write('1 ');

end;

readln;

end.

13 tháng 12 2021

giải thích rõ hộ em với ạ em vnx chưa hiểu ạ;-;

4 tháng 1 2018

Cho mình hỏi mấy câu nữa:
Câu 1: Cho 1994 số, mỗi số bằng 1 hoặc -1. Hỏi có thể chọn ra từ 1994 số đó một số số sao cho tổng các số được chọn ra bằng tổng các số còn lại hay không?
Câu 2: So sánh
a) (-2)^91 và (-5)^35
b) (-5)^91 và (-11)^59
c) (-80)^11 và (-27)^15
d) (-31)^10 và (-17)^13
Câu 3: Cho tổng: 1+2+3+....+10. Xóa hai số bất kì, thay bằng hiệu của chúng. Cứ tiếp tục làm như vậy nhiều lần. Có khi nào kết quả nhận được bằng -1; bằng -2; bằng 0 được không?