tính tổn cuaar các số từ 1 đén 20
Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6
Tính tổng các chữ số từ 1 đén 1000
Có số số hạng là :
( 1000-1):1+1=1000 ( số)
Tổng là : ( 1000+1)x1000:2=500500
tính tổng các số chẵn từ m đén n
Tính tổng các số lẻ từ m dến n
Giúp mik vs mn ơi
uses crt;
var m,n,t1,t2,i:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
until m<=n;
t1:=0;
t2:=0;
for i:=m to n do
begin
if i mod 2=0 then t1:=t1+i
else t2:=t2+i;
end;
writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t1);
writeln('Tong cac so le tu ',m,' den ',n,' la: ',t2);
readln;
end.
hoa tính tổng các số chẵn từ 2 đén 100 bạn lan tính tỏng các số lẻ từ 1 đến 99 mai lấy kết quả của hoa trừ đi kết quả của lan thì được bao nhiêu
Mọi người giúp e bài này với ạ. Mai e phải thi rồi
II. Tự luận
Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50
Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừa
Bài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừa
Bài 4: Viết chương trình có sử dụng hàm đưa ra màn hình các số chính phương từ 1 đến 100 ngăn cách nhau bởi dấu cách, biết số chính phương là số được tạo ra từ bình phương của 1 số nguyên khác
Viết chương trình nhập vào dãy số nguyên A có N phần tủ (N<=250) và thực hiện yêu cầu sau
A) cho biết chỉ số các phần tử có giá trị bằng không
b)Đếm số phần tử có giá trị lớn hơn X cho trước
C)Tính tổng các phần tử có giá trị nàm trong đoạn từ 5 đén 20
Program HOC24;
var d,i,n,x: integer;
t: longint;
a: array[1..32000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Chi so cac phan tu co gia tri bang 0 la: ');
for i:=1 to n do if a[i]=0 then write(i,' ');
writeln;
d:=0; t:=0;
write('Nhap X: '); readln(x);
for i:=1 to n do if a[i]>x then d:=d+1;
writeln('Co ',d,' phan tu co gia tri lon hon ',x);
if n=20 then
begin
for i:=5 to 20 do t:=t+a[i];
end else write('Du lieu da cho chua du 20 phan tu');
write('Tong cac phan tu co gia tri nam trong doan 5 den 20 la: ',t);
readln
end.
uses crt;
var a:array[1..250]of integer;
i,n,t,x,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Chi so cac phan tu co gia tri bang 0 la: ');
for i:=1 to n do
if a[i]=0 then write(i:4);
writeln;
write('Nhap x='); readln(x);
dem:=0;
for i:=1 to n do
if a[i]>x then inc(dem);
writeln('So phan tu lon hon ',x,' la: ',dem);
t:=0;
for i:=1 to n do
if (5<=a[i]) and (a[i]<=20) then t:=t+a[i];
writeln(t);
readln;
end.
1 xe máy đi từ A lúc 8 giờ 20 phút với vận tốc 42 km / giờ , đén B lúc 11 giờ . Tính quãng đường AB
Thời gian người đó đi là :
11 giờ - 8 giờ 20 phút = 2 giờ 40 phút
Đổi 2 giờ 40 phút = 2 \(\frac{2}{3}\) giờ
Quãng đường AB dài số km là :
42 x 2\(\frac{2}{3}\) = 112 ( km )
Đáp số : 112 km
Số giờ ô tô đi được là :
11 giờ - 8 giờ 20 phút = 2 giờ 40 phút
đổi : 2 giờ 40 phút = 160 phút
1 giờ = 60 phút
vận tốc của xe máy là :
42 : 60 = 0,7(km/phút)
quãng đường AB dài:
0,7 x 60 = 112(km)
ĐS:112 km
có bao nhiêu số tự nhiên là các số lẻ từ 1 đén 2013
Các số lẻ đó là: 1,3,5,...,2013
Số các số hạng là
(2013-1):2+1=1007(số)
Ta thấy mỗi số lẻ cách nhau 2 đơn vị
Ta có: \(\left(2013-1\right)\div2+1=1007\left(số\right)\)
Số số tự nhiên lẻ là:
\(\dfrac{\left(2013-1\right)}{2}+1=1007\)
Nhập từ bàn phím mảng số nguyên N phân tử
Tính tổn các số ở vị trí chẵn.
giúp mik với ạ :((
VIẾT CÁC SỐ TỰ NHIÊN LIÊN TIẾP TỪ 1 ĐÉN 300 THÌ CẦN BAO NHIÊU CHỮ SỐ ?
512 mình không có chắc nha
nếu đúng thì k nha