Nhập vào từ bàn phím số nguyên M,1<M<10^4.
Yêu cầu in ra màn hình các kết quả sau:
+Dòng thứ nhất ghi 2 ước nhỏ nhất và lớn nhất của M (toán Tin)
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
Viết chương trình nhập vào từ 1 bàn phím 1 dãy n số nguyên( n nhập từ bàn phím). Sau đó hiển thị ra màn hình các số chẵn của dãy số vừa nhập.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
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.
uses crt;
var a:array[1..1000000] of longint;
n,i:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Câu 2:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
Bài 1:
program in_phan_tu;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
readln;
end.
Bài 2:
program tong_phan_tu;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Bài 3:
program tong_phan_tu_chan;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Viết chương trình nhập vào 1 dãy n số nguyên(m cũng được nhập từ bàn phím)in ra các số chẵn
Program Tin;
Uses crt;
Var i,n:integer
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
Writeln('Nhap ',n,' so nguyen:');
For i:= 1 to n do
Begin
Write('A[',i,'] = ');
readln(a[i]);
End;
Writeln('Cac so chan co trong day la:');
For i:= 1 to n do If a[i] mod 2 = 1 then write(a[i],' ');
Readln;
End.
uses crt;
var a:array[1..100]of integer;
i,m:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to m do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,d:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.
Mô tả thuật toán cho bài toán sau:
Tính tổng S=1+2+…+n ( với n <100, n được nhập vào từ bàn phím)
Tính tổng s= ½ + ¼ + 1/6 + … + 1/n (0< n<1000, n được nhập vào từ bàn phím
Tìm số lớn nhất trong 1 dãy số nguyên bất kỳ được nhập vào từ bàn phím
c:
#include <bits/stdc++.h>
using namespace std;
long long ln,i,n,x;
int main()
{
cin>>n;
ln=LLONG_MIN;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
Viết chương trình nhập 3 số nguyên a b c vào từ bàn phím sau đó tính và in ra kết quả
Viết chương trình nhập 3 số nguyên a b c vào từ bàn phím sau đó tính và in ra kết quả M;Nvà P biết :
M := a+b+c
N := ab+bc+ac
P:= abc
Đề bài 1:nhập 1 dãy số nguyên từ bàn phím,tách và hiển thị dãy các số âm và dãy các số dương,đưa ra màn hình câu trả lời dãy nào có nhiều phần tử hơn.
Đề bài 2:nhập 1 dãy số nguyên từ bàn phím,tìm kiếm phần tử có giá trị = giá trị m nhập từ bàn phím,phần tử đó có xuất hiện trong dãy số hay ko?
Dùng python nhé mn.Mn giúp e vs ::))
Bài tập 1: Kiểm tra số x nhập vào từ bàn phím có phải là số nguyên tố hay
không ?
VD: nhập x
• x-5 KQ: 5 là số nguyên tố
• x=4 KQ: 4 không phải là số nguyên tố
Bài tập 2: Kiểm tra số n nhập vào từ bàn phím có phải là số đối xứng không ?
(Giới hạn 4 con số)
VD: nhập x =
• x- 1221 KQ: 12321 là số đối xứng
• x- 3712 KQ: 3712 không phải là số đối xứng
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long n,i;
bool kt;
int main()
{
cin>>n;
if (n>1)
{
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true) cout<<n<<" la so nguyen to";
else cout<<n<<" khong la so nguyen to";
}
else cout<<n<<" khong la so nguyen to";
return 0;
}
1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị 2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá trị số nhỏ nhất có trong dãy vừa nhập. 3. Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, tính và thông báo ra màn hình tổng các số có giá trị là chẵn có trong dãy vừa nhập. 4. Viết chương trình nhập vào hai xâu bất kỳ, thông báo ra màn hình xấu có độ dài ngắn hơn, nếu bằng nhau thì đưa ra xâu nhập sau. 5. Viết chương trình nhập vào một xâu, in ra màn hình xấu đó nhưng được viết theo thứ tử ngược lai