Hãy tính tổng các ước số của 210×5. Nếu không tính kết quả của tổng có chứng minh được tổng đó là bội của 6 hay không
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.
Những câu hỏi liên quan
29 tháng 8 2023
uses crt;
var i,n,t,j,kt:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
if n mod i=0 then
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
write(t);
readln;
end.
GK
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?
5 tháng 3 2017
Program bt_3;
Uses crt;
Var a: array[1..100] of integer;
Dem, Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap so phan tu, n=’);
Readln (n);
for i := 1 to n do
begin
writeln(‘nhap gia trij phan tu thu ’,i,’ =’);
readln(a[i]);
end;
Dem:=0;
Tong:=0;
For i:=1 to n do
If (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then
begin
Dem:= Dem+1;
Tong:= Tong+a[i];
end;
writeln(‘Dem la:’,Dem);
Writeln(‘Tong la:’,Tong);
Readln
End.