K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Cho tệp văn bản DAYSO.INP có cấu trúc: + Dòng 1: Ghi số nguyên dương N  (0<N<=100) + Dòng 2: Ghi dãy gồm n số nguyên Ai (-30000<=Ai<=30000). Yêu cầu: Viết chương trình đọc dữ liệu từ tệp trên và thực hiện các công việc sau:a) Tính tổng các số ở dòng 2, ghi kết quả vào tệp TONG.OUT theo cấu trúc:+ Dòng 1: Ghi số nguyên S là tổng tìm được b) Tính tổng các số dương ở dòng 2, ghi kết quả vào tệp TD.OUT theo cấu trúc:+ Dòng...
Đọc tiếp

Cho tệp văn bản DAYSO.INP có cấu trúc:

+ Dòng 1: Ghi số nguyên dương N  (0<N<=100)

+ Dòng 2: Ghi dãy gồm n số nguyên Ai (-30000<=Ai<=30000).

Yêu cầu: Viết chương trình đọc dữ liệu từ tệp trên và thực hiện các công việc sau:

a) Tính tổng các số ở dòng 2, ghi kết quả vào tệp TONG.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên S là tổng tìm được

b) Tính tổng các số dương ở dòng 2, ghi kết quả vào tệp TD.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên S là tổng các số dương tìm được

c) Đếm số lượng các số chẵn ở dòng 2, ghi kết quả vào tệp SOCHAN.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số chẵn

+ Dòng 2: Ghi các số chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.

d) Đếm số lượng các số âm chẵn ở dòng 2, ghi kết quả vào tệp SOAMCHAN.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số âm chẵn

+ Dòng 2: Ghi các số âm chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.

e) Sắp xếp các số ở dòng 2 để được dãy không giảm, ghi kết quả vào tệp SAPXEP.OUT theo cấu trúc:

+ Dòng 1: Ghi dãy số đã được sắp xếp, các số ghi cách nhau 1 dấu cách trống.

f) Đếm số lượng các số nguyên tố ở dòng 2, ghi kết quả vào tệp NTO.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số nguyên tố

+ Dòng 2: Ghi các số nguyên tố tìm được, các số ghi cách nhau 1 dấu cách trống.

HƠI DÀI NHMA MONG MẤY BẠN GIÚP CHỨ MÌNH CHỊU R

0

uses crt;

const fi='dayso.inp',

var a:array[1..100]of integer;

i,n:integer;

f1:text;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

for i:=1 to n do write(a[i]:4);

close(f1);

readln;

end.

19 tháng 3 2023

Đề yêu cầu gì vậy bạn?

20 tháng 3 2023

ghi dữ liệu là các thông tin  vào tệp KQ1.TXT

Bài 4: Tìm số dư của phép chia cho 9. CHIA9.PAS Cho một số nguyên dương N có M chữ số. Yêu cầu: Tìm số dư của phép chia số N cho 9. Dữ liệu vào: Cho trong file văn bản CHIA9.INP, có cấu trúc như sau: - Dòng 1: Ghi số nguyên dương M là số lượng chữ số của số N (1 ≤ M ≤ 100). - Dòng 2: Ghi M chữ số của số N, các chữ số được ghi liền nhau. Dữ liệu ra: Ghi ra file văn bản CHIA9.OUT, theo cấu trúc như...
Đọc tiếp

Bài 4: Tìm số dư của phép chia cho 9. CHIA9.PAS Cho một số nguyên dương N có M chữ số. Yêu cầu: Tìm số dư của phép chia số N cho 9. Dữ liệu vào: Cho trong file văn bản CHIA9.INP, có cấu trúc như sau: - Dòng 1: Ghi số nguyên dương M là số lượng chữ số của số N (1 ≤ M ≤ 100). - Dòng 2: Ghi M chữ số của số N, các chữ số được ghi liền nhau. Dữ liệu ra: Ghi ra file văn bản CHIA9.OUT, theo cấu trúc như sau: - Dòng 1: Ghi số nguyên dương Q, là số dư tìm được. Ví dụ: CHIA9.INP CHIA9.OUT 5 74283 6

Bài 5: Tìm số sát sau - SOSATSAU.PAS Cho số tự nhiên A có N chữ số. Hãy hoán vị các chữ số trong A để thu được số B thoả mãn đồng thời hai điều kiện sau: - B lớn hơn A. - B nhỏ nhất. Dữ liệu vào: Cho trong file SOSATSAU.INP có cấu trúc như sau: - Dòng 1: Ghi số N là số lượng chữ số của A (0a[i-1]. Do đoạn cuối giảm dần, điều này thực hiện bằng cách tìm từ cuối dãy lên đầu gặp chỉ số k đầu tiên thỏa mãn a[k]>a[i-1] (có thể dùng tìm kiếm nhị phân) - Đảo giá trị a[k] và a[i-1] - Lật ngược thứ tự đoạn cuối giảm dần (từ a[i] đến a[k]) trở thành tăng dần + Nếu không tìm thấy tức là toàn dãy đã sắp xếp giảm dần, đây là hoán vị cuối cùng.

Bài 2. MẬT KHẨU. Cu Tí thường xuyên tham gia thi lập trình trên mạng. Vì đạt được thành tích cao nên Tí được gửi tặng một phần mềm diệt virus. Nhà sản xuất phần mềm cung cấp cho Tí một mã số là một dãy gồm các bộ ba chữ số ngăn cách nhau bởi dấu chấm và có chiều dài không quá 255 (kể cả chữ số và dấu chấm). Để cài đặt được phần mềm, Tí phải nhập vào mật khẩu của phần mềm. Mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng giá trị các bộ ba chữ số trong dãy mã số, các bộ ba này được đọc từ phải sang trái. - Yêu cầu: Cho biết mã số của phần mềm, hãy tìm mật khẩu của phần mềm đó. - Dữ liệu vào: Cho từ tệp văn bản có tên BL2.INPgồm một dòng chứa xâu ký tự S (độ dài xâu không quá 255 ký tự) là mã số của phần mềm. - Kết quả: Ghi ra tệp văn bản có tên BL2.OUTgồm một số nguyên là mật khẩu tìm được. MK.INP MK.OUT 123.234 257

Bài 6: Biến đổi số BIENDOI.PAS Cho một số nguyên dương M có K chữ số (0 < M; 1 ≤ K ≤ 200). Người ta thực hiện biến đổi số M bằng cách xóa đi trong M các chữ số 0 và sau đó sắp xếp các chữ số còn lại theo thứ tự không giảm của giá trị từng chữ số. Gọi số nguyên dương N là số thu được sau khi thực hiện biến đổi số M. Yêu cầu: Hãy tìm số nguyên dương N. Dữ liệu vào: Nhập vào từ tệp biendoi.inp số M Dữ liệu ra: Ghi ra tệp biendoi.out số N Ví dụ: M=3880247 N=234788

0

uses crt;

const fi='dulieu.txt';

var f1:text;

a:array[1..100]of real;

t:real;

i,n:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

close(f1);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i;

bool kt;

int main()

{

freopen("checknto.inp","r",stdin);

freopen("checknto.out","w",stdout);

cin>>n;

kt=true;

for (i=2; i*i<=n; i++)

if (n%i==0) kt=false;

if (kt==true && n>1) cout<<"YES";

else cout<<"NO";

return 0;

}