cho biết trong dãy số từ :1;2;3;4;5;6;7;8;9..........;5019cos bao nhiêu chứ số 2
Nhập vào từ bàn phím dãy A gồm N số nguyên (1<N<255)
1. in dãy vừa nhập râ màn hình
2. cho biết chỉ số mà số hạng dương đầu tiên trong dãy
uses crt;
var a:array[1..255]of integer;
i,n,vt:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<n) and (n<=255);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
vt:=n;
for i:=n downto 1 do
if a[i]>0 then
begin
if vt>i then vt:=i;
end;
if (vt=n) and (a[n]<=0) then writeln('Trong day khong co so duong')
else writeln('Chi so so hang duong dau tien trong day la: ',vt);
readln;
end.
1. Viết chương trình nhập vào n số nguyên từ bàn phím. Hãy in ra màn hình
các số chính phương có trong dãy vừa nhập? Cho biết số lớn nhất trong dãy?
uses crt;
var a:array[1..100] of integer;
i,n,ln:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
ln:=0;
for i:=1 to n do
if trunc(sqrt(A[i]))=sqrt(a[i]) then
begin
write(a[i]:4);
if ln<A[i] then ln:=A[i];
end;
writeln;
writeln('So chinh phuong lon nhat la: ',ln);
readln;
end.
Cho biết trong dãy số từ số 1 đến 250 có bao nhiêu số 2 ?
Co tong cong tat ca 105 so 2 nha ban!
k minh nha!
hãy cho biết trong dãy số từ số 1 đến 100 có tất cả bao nhiêu chữ số 2
Gồm : \(2;12;22;32;42;52;62;72;82;92;21;23;24;25;26;27;28;29\)
Có 18 số có chữ số 2
Cho dãy số: 1;1;2;3;5;8;13;21;...;x
Hỏi từ 1 - 100 có bao nhiêu số thuộc dãy số trên?
Tính tổng các số từ 1-100 thuộc dãy số trên?
Cho biết tổng của các từ 1-100 thuộc dãy trên có chia hết cho 10 không? Vì sao
Từ 1 - 100 có: 11 số thuộc dãy số trên.
Tổng các chữ số thuộc dãy số trên :218
tổng các chữ số từ 1-100 thuộc dãy trên không chia hết cho 10
Hãy cho biết trong dãy số tự nhiên liên tiếp từ 1 đến 1000 có bao nhiêu chữ số 0
Hãy cho biết trong dãy số tự nhiên liên tiếp từ 1; 2; 3; 4; .....; 2013; 2014 có bao nhiêu chữ số 1
1, Cho dãy A gồm N số nguyên a1,a2...aN. Hãy cho biết trong dãy có bao nhiêu số chẵn?
2, Cho N và dãy a1,a2...aN là dãy các số nguyên. Hãy cho biết trong dãy có bao nhiêu số âm
Hãy cho biết trong dãy số tự nhiên liên tiếp từ 1-1000 có tất cả bao nhiêu chữ số 8 .
Dãy số 1 - 1000 có chữ số 8 :
8; 18; 28; ...; 998
Số các số cần tìm là :
(998 - 8) : 10 + 1 = 100 số
giữ kiến thức lâu quá lúc đó kiến xẽ buồn ngủ, khi kiến ngủ lâu quá có thể chết
--> để cho kiến, thức ngủ tự nhiên.
viết chương trình nhập 2 dãy số nguyên từ bàn phím hãy cho biết trong mỗi dãy có bao nhiêu số chẵn số lẻ
# Dãy số thứ nhất
list1 = list(map(int, input("Nhập dãy số thứ nhất, cách nhau bằng khoảng trắng: ").split()))
so_chan1 = 0
so_le1 = 0
for num in list1:
if num % 2 == 0:
so_chan1 += 1
else:
so_le1 += 1
print("Trong dãy số thứ nhất có", so_chan1, "số chẵn và", so_le1, "số lẻ.")
# Dãy số thứ hai
list2 = list(map(int, input("Nhập dãy số thứ hai, cách nhau bằng khoảng trắng: ").split()))
so_chan2 = 0
so_le2 = 0
for num in list2:
if num % 2 == 0:
so_chan2 += 1
else:
so_le2 += 1
print("Trong dãy số thứ hai có", so_chan2, "số chẵn và", so_le2, "số lẻ.")