Nhập số N nguyên dương đếm các số chẳn của N
Những câu hỏi liên quan
Viết chương trình bằng ngôn ngữ Pascal nhập dãy số A, biết số phần tử của dãy là n. Xác định và in ra các phần tử là số chẳn trong dãy A. Nếu nhập n<0 thì thông báo " bạn nhập sai, yêu cầu nhập lại "
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Em hãy viết chương trình hoàn chỉnh vào mảng 1 chiều gồm 6 phần tử . Đếm và tính tổng các phần tử dương của mảng vừa nhập, biết rằng các phần tử trong mảng là các số nguyên
program hoc24;
uses crt;
var a: array[1..100] of integer;
i,d,s: longint;
begin
clrscr;
for i:=1 to 6 do readln(a[i]);
s:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(d);
s:=s+a[i];
end;
writeln(d,s);
readln
end.
Đúng 1
Bình luận (0)
bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..6]of integer;
i,dem,t:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to 6 do
if a[i]>0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
Cho dãy số nguyên a1,a2,...an gồm n phần tử (n<=300) a, Khai báo và đoạn chương trình để nhập số lượng phần tửN các giá trị cho dãy a1,a2,..an?
b,Đếm các phần tử là bội của 3 trong dãy và đưa ra màn hình?
kiểm tra xem dãy trên có phải là cấp số cộng không?
uses crt;
var a:array[1..300]of integer;
i,n,dem,kt,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
t:=abs(a[2]-a[1]);
kt:=0;
for i:=1 to n do
if t<>abs(a[i]-a[i-1]) then
begin
kt:=1;
break;
end;
if kt=0 then writeln('Day la cap so cong')
else writeln('Day khong la cap so cong');
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập số nguyên dương n. Nhập dãy gồm n số nguyên. Hãy tính tổng các số nằm ở vị trí chẵn trong dãy ?
program im_14424;
uses crt;
var A: array[1..100000] of integer;
S,i,n: integer;
begin
clrscr;
write('Nhap vao n: ');
readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
if (A[i] mod 2 = 0 then S:=S+i;
end;
write(S);
readln
end.
Đúng 1
Bình luận (2)
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N10). Tính và in ra màn hình các yêu cầu sau:a. Tính tổng các số vừa nhậpb. tính tích các số vừa nhập c. tính tb các số vừa nhập d. hãy tìm số lớn nhất và số bé nhất e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhậpf. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãygi...
Đọc tiếp
hãy viết chương trình nhập vào một dãy N số nguyên từ bàn phím( N là số nguyên dương được nhập vào từ bàn phím và N>10). Tính và in ra màn hình các yêu cầu sau:
a. Tính tổng các số vừa nhập
b. tính tích các số vừa nhập
c. tính tb các số vừa nhập
d. hãy tìm số lớn nhất và số bé nhất
e. hãy tìm số nhỏ nhất mà lớn hơn tb trong các số vừa nhập
f. hãy nhập vào một số nguyên X. Hãy đếm xem có bao nhiêu số không lớn hơn X trong dãy
giúp mik vs nha :(((
Bài 1 : Thay chữ số Hãy lập trình nhập vào số nguyên n , thực hiện thay thế các chữ số 0 trong biểu diễn thập phân của n thành các chữ số 5 và in ra kết quả . Ví dụ : với n1005 thì sau khi thực hiện thay thế ta thu được số 1555 Còn với n1234 , thì ta không có chữ số nào bị thay thế và kết quả vẫn là số 1234 Đầu vào Dòng đầu tiên của đầu vào chứa số nguyên T cho biết số bộ dữ liệu cần kiểm tra . Mỗi bộ dữ liệu gồm một dòng c...
Đọc tiếp
Bài 1 : Thay chữ số Hãy lập trình nhập vào số nguyên n , thực hiện thay thế các chữ số 0 trong biểu diễn thập phân của n thành các chữ số 5 và in ra kết quả . Ví dụ : với n=1005 thì sau khi thực hiện thay thế ta thu được số 1555 Còn với n=1234 , thì ta không có chữ số nào bị thay thế và kết quả vẫn là số 1234 Đầu vào Dòng đầu tiên của đầu vào chứa số nguyên T cho biết số bộ dữ liệu cần kiểm tra . Mỗi bộ dữ liệu gồm một dòng chứa một số nguyên n Đầu ra Ứng với mỗi bộ dữ liệu đầu vào , chương trình của bạn cần in ra số n sau khi thay thế các chữ số của n theo yêu cầu đề bài Ràng buộc .1≤T≤105 ;0≤n≤1012 Ví dụ Đầu vào
2
1005
1234
Đầu ra
1555
1234
lưu ý dùng C ++
#include <bits/stdc++.h>
using namespace std;
string n;
int main()
{
cin>>st;
int d=st.length();
for (int i=0; i<=d-1; i++)
if (st[i]==0) st[i]='5'
cout<<st;
return 0;
}
Đúng 0
Bình luận (0)
Bài 1 : Thay chữ số Hãy lập trình nhập vào số nguyên n , thực hiện thay thế các chữ số 0 trong biểu diễn thập phân của n thành các chữ số 5 và in ra kết quả . Ví dụ : với n1005 thì sau khi thực hiện thay thế ta thu được số 1555 Còn với n1234 , thì ta không có chữ số nào bị thay thế và kết quả vẫn là số 1234 Đầu vào Dòng đầu tiên của đầu vào chứa số nguyên T cho biết số bộ dữ liệu cần kiểm tra . Mỗi bộ dữ liệu gồm một dòng c...
Đọc tiếp
Bài 1 : Thay chữ số Hãy lập trình nhập vào số nguyên n , thực hiện thay thế các chữ số 0 trong biểu diễn thập phân của n thành các chữ số 5 và in ra kết quả . Ví dụ : với n=1005 thì sau khi thực hiện thay thế ta thu được số 1555 Còn với n=1234 , thì ta không có chữ số nào bị thay thế và kết quả vẫn là số 1234 Đầu vào Dòng đầu tiên của đầu vào chứa số nguyên T cho biết số bộ dữ liệu cần kiểm tra . Mỗi bộ dữ liệu gồm một dòng chứa một số nguyên n Đầu ra Ứng với mỗi bộ dữ liệu đầu vào , chương trình của bạn cần in ra số n sau khi thay thế các chữ số của n theo yêu cầu đề bài Ràng buộc .1≤T≤105 ;0≤n≤1012 Ví dụ Đầu vào Đầu ra 2 1005 1234 1555 1234
lưu ý dùng C ++
#include <bits/stdc++.h>
using namespace std;
string n;
int main()
{
cin>>st;
int d=st.length();
for (int i=0; i<=d-1; i++)
if (st[i]==0) st[i]='5'
cout<<st;
return 0;
}
Đúng 1
Bình luận (0)
Câu 1 : Viết chương trình kiểm tra xem N được nhập từ bàn phím có phải là số nguyên tố hay ko ?
Câu 2 : Viết chương trình nhập vào một mảng các số nguyên . Ghi ra màn hình . Tìm giá trị max , min của mảng đó
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
Đúng 1
Bình luận (0)
Tìm tất cả các số nguyên dương n sao cho hai số n +26 và n - 11 đều là lập phương của hai số nguyên dương nào đó
\(n+26=a^3\left(a\in N\cdot\right)\)
\(n-11=b^3\left(b\in N\cdot\right)\)
=>\(a^3-b^3=37\)
\(\left(a-b\right)\left(a^2+ab+b^2\right)=37\)
\(\Rightarrow\left(a-b\right)\&\left(a^2+ab+b^2\right)\) là ước của 37
Mà \(a^2-ab+b^2\ge a-b\ge0\)
\(\int^{a^2+ab+b^2=37}_{a-b=1}\Leftrightarrow\int^{a=b+1}_{\left(b+1\right)^2+b\left(b+1\right)+b^2=37}\Leftrightarrow\int^{a=b+1}_{3b^2+3b-36=0}\Leftrightarrow\int^{a=4}_{b=3}\)(vì a;b>0) thay hoặc a vào chỗ đặt rồi tự tìm nốt
Đúng 0
Bình luận (0)