Viết ct nhập n số nguyên dương, n < = 10000 các số trong phạm vị từ 0 đến 254. Tìm top 30 giá trị số có số lần xuất hiện nhiều hơn cả. Mong anh chị giải giúp e với ạ
Đề : viết chương trình nhập n số nguyên dương (n ≤ 10000 ) các số trong phạm vi từ 0→ 254.
a. tìm top 30 giá trị số lớn hơn cả
DL vào: file B1_INP.TXT có dòng đầu là số n từ dòng kế ghi đầy đủ n số ghi cách nhau dấu cách hoặc xuống dòng
KQ ra: ghi vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị sô trình tự giảm dần
b. tìm top 30 giá trị số có số lần xuất hiện nhiều hơn cả
KQ ra: ghi file có mỗi dòng ghi giá trị và số lần xuất hiện ghi cách nhau dấu cách và thứ tự giảm dần số lần xuất hiện( nếu cùng số lần xuất hiện nhưng có nhiều giá trị số thì phải ghi hết các giá trị số sau đó mới ghi tới số lần xuất hiện, tất cả ghi trên 1 dòng và cách nhau dấu cách)
1)viết chương trình xuất ra các bội số của B trong phạm vị từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím
2) nhập số nguyên n, viết chương trình xem số n có phải là số nguyên tố không
3)viết chương trình kiểm tra C có phải số hoàn hảo hay không
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}
Viết CT nhập vào số nguyên dương n(n được nhập giá trị từ bàn phím), sau đó thực hiện các yêu cầu sau: a, nếu n=0 thì yêu cầu nhập lại số n b, tính tổng các số chẵn từ 1 đến n vừa nhập c, tính tích các số lẻ từ 1 đến n vừa nhập D, in các giá trị vừa tính được ra màn hình
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Viết chương trình nhập vào số nguyên dương k, N (N≤1000), và các phần tử của mảng từ
A 1 ,…,A N là các số nguyên trong phạm vi từ ±5000. Tìm và xuất ra màn hinh
a) Có bao nhiêu phần tử có giá trị bằng k.
b) Vị trị của các phần tử có giá trị bằng k. Tính tổng các số có giá trị bằng k.
Var i,k,n,bk,tong: integer;
a: array[1..1000] of integer;
Begin
write('Nhap K: '); readln(k);
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
{câu a}
For i:=1 to n do
if a[i]=k then bk:=bk+1;
writeln('Co so phan tu bang k la:',k);
{câu b}
For i:=1 to n do
if a[i]=k then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('. Tong la:',tong);
readln
end.
uses crt;
var k,n,tong,d,i:longint;a:array[1..1000]of longint;
begin
clrscr;
write('n=');readln(n);
write('k=');readln(k);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
d:=0;
for i:=1 to n do if(a[i]=k)then inc(d);
writeln('so phan tu bang voi:',k,' la:',d);
write('cac so co vi tri bang voi:',k,' la:');
tong:=0;
for i:=1 to n do if(a[i]=k)then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('tong cua cac so bang voi:',k,' la:',tong);
readln;
end.
Em biết giờ này hỏi bài là hơi kì ạ. Nhưng mà mai thi mất tiêu r ạ. Các anh chị có thể giúp em vs không ạ. Sáng mai em phải nộp r ạ.😖😖😖
viết ctrinh n≤ 10000 nguyên dương. Viết ra số lượng số nguyên tố và 10 giá trị số nguyên tố lớn hơn cả
Dữ liệu vào: file B5.INP.TXT. Có dòng đầu là số n. Từ dòng kế ghi lần lượt n số cách nhau dấu cách hoặc xuống dòng
KQ ra: ghi file B5.OUT.TXT dòng đầu ghi số lượng số nguyên tố dòng kế ghi 10 giá trị số nguyên tố lớn hơn cả được cách nhau bằng dấu cách
BÀI 2
Viết chương trình đọc các dòng trong một file văn bản độ dài dòng (255 ký tự, số dòng ≤ 50000). Tính ra số từ trong file( từ nằm trọn trên dòng), và dòng có số từ nhiều nhất là bao nhiêu từ, có bao nhiêu dòng như vậy.
Dữ liệu vào : file B6-INT.TXT gồm nhiều dòng văn bản.
KQ ra: file B6-OUT.TXT dòng đầu ghi tổng số từ vủa file, dong 2 ghi số từ nhiều nhất của 1 dòngvà số dòng có số từ nhiều nhất
Ai đó help e vs ạ. Em cảm ơn rất rất nhiều luôn 😭😭😭
viết ctrinh n≤ 10000 nguyên dương. Viết ra số lượng số nguyên tố và 10 giá trị số nguyên tố lớn hơn cả
Dữ liệu vào: file B5.INP.TXT. Có dòng đầu là số n. Từ dòng kế ghi lần lượt n số cách nhau dấu cách hoặc xuống dòng
KQ ra: ghi file B5.OUT.TXT dòng đầu ghi số lượng số nguyên tố dòng kế ghi 10 giá trị số nguyên tố lớn hơn cả được cách nhau bằng dấu cách
uses crt;
var a:array[1..200]of integer;
i,n,tbc,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so duong chan la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);
writeln;
tbc:=0;
dem:=0;
for i:=1 to n do
if (-1000<=a[i]) and (a[i]<=1000) then
begin
tbc:=tbc+a[i];
dem:=dem+1;
end;
writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);
readln;
end.
Viết chương trình nhập vào 2 số nguyên dương m, n (m<n), tính T1 là tích tất cả các số trong phạm vi từ 1 đến n và T2 là tích các số lẻ trong phạm vi từ m đến n và đưa kết quả ra màn hình.
giúp em bài này với ạ, em cám ơn ạ <3
Program HOC24;
var m,n,i: integer;
t1,t2: longint;
begin
write('Nhap m;n: '); readln(m,n);
t1:=1; t2:=1;
for i:=1 to n do t1:=t1*i;
for i:=m to n do t2:=t2*i;
writeln('T1=',t1);
write('T2=',t2);
readln
end.
Viết ct nhập vào một mảnh gồm N số nguyên dương (N nguyên dương nhập từ bàn phím, N<=100) sau đó
a) tính tổng các số là bội của 3
b) tìm giá trị lớn nhất của mảng
c) Xét xem phần tử đầu tiên của mảng có phải là số nguyên tố hay ko
c) Cho biết các giá trị của mảng đc sx theo thứ tự ko gian chưa