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.
const fi='kt.txt';
fo='kq.out';
var f1,f2:text;
s:string;
i,dem,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
vt:=pos('anh',s);
while vt<>0 do
begin
delete(s,vt,3);
insert(s,vt,'em');
vt:=pos('anh',s);
end;
writeln(f2,s);
close(f1);
close(f2);
end.
Những tính năng cơ bản:
- Tải tệp lên ổ đĩa trực tuyến
- Tạo mới và quản lí thư mục, tệp trên ổ đĩa trực tuyến
- Chia sẻ thư mục và tệp.
Dịch vụ lưu trữ và chia sẻ tệp tin trên internet được gọi là "Lưu trữ đám mây" (hay còn được viết tắt là "Đám mây") vì nó cho phép người dùng lưu trữ dữ liệu của mình trên các máy chủ được đặt ở các trung tâm dữ liệu trên khắp thế giới. Người dùng có thể truy cập vào dữ liệu của mình từ bất kỳ đâu có kết nối internet, giống như nhìn thấy một đám mây trên bầu trời, không cần phải biết đám mây đó được hình thành từ đâu và nó được lưu trữ ở đâu.
Bài 1:
const fi='so.inp';
fo='so.out';
var f1,f2:text;
a:array[1..100]of integer;
dem,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
writeln(f2,'Cac so nguyen am la: ');
for i:=1 to dem do
if a[i]<0 then write(f2,a[i]:4);
writeln(f2);
t:=0;
for i:=1 to dem do
if (a[i] mod 5=0) and (a[i] mod 3=0) then t:=t+a[i];
writeln(f2,'Tong cac so chia het cho 3 va 5 la: ',t);
close(f1);
close(f2);
end.
Bài 2:
uses crt;
const fi='baitap.txt';
fo='kq.qut';
var f1,f2:text;
a:array[1..100]of integer;
dem,i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 5=0 then dem:=dem+1;
writeln('So luong cac so chia het cho 5 la: ',dem);
for i:=1 to n do
if sqrt(a[i])=trunc(sqrt(a[i])) then write(f2,a[i]:4);
close(f1);
close(f2);
readln;
end.
Câu 1:
const fi1='nguyen1.inp';
fi2='nguyen2.inp';
fo='songuyen.inp';
var f1,f2,f3:text;
a:array[1..10000]of integer;
i,dem:integer;
begin
assign(f1,fi1); reset(f1);
assign(f2,fi2); reset(f2);
assign(f3,fo); rewrite(f3);
dem:=0;
while not eof(f1) do
begin
inc(dem);
read(f1,a[dem]);
end;
while not eof(f2) do
begin
inc(dem);
read(f2,a[dem]);
end;
for i:=1 to dem do
write(f3,a[i]:4);
close(f1);
close(f2);
close(f3);
end.
Câu 2:
uses crt;
const fi='vanban.txt';
var f1:text;
st:array[1..255]of string;
dem:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,st[dem]);
end;
writeln('So dong cua tep ',fi,' la: ',dem);
close(f1);
readln;
end.
Câu 3:
const fi='nguon.txt';
fo='dich.txt';
var f1,f2:text;
st:array[1..255]of string;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,st[dem]);
end;
for i:=1 to dem do
writeln(f2,st[i]:4);
close(f1);
close(f2);
end.
Câu 4:
const fi='dulieu.int';
fo='sochan.out';
var f1,f2:text;
a:array[1..255]of integer;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1)do
begin
inc(dem);
read(f1,a[dem]);
end;
for i:=1 to dem do
if a[i] mod 2=0 then write(f2,a[i]:4);
close(f1);
close(f2);
end.
Câu 5:
const fi='dulieu.int';
fo='dulieu.out';
var f1,f2:text;
a:array[1..255]of integer;
i,n,tam,j:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(f2,a[i]:4);
close(f1);
close(f2);
end.
Câu 1. Xét theo cách thức truy cập dữ liệu, tệp được phân thành những loại nào?
A. Tệp truy cập tuần tự và tệp truy cập trực tiếp.
B. Tệp văn bản và tệp có cấu trúc.
C. Tệp truy cập tuần tự, tệp truy cập trực tiếp và tệp có cấu trúc.
D. Tệp văn bản, tệp có cấu trúc và tệp số nguyên.
Câu 2. Để khai báo biến tệp văn bản, ta dùng cú pháp:
A. var <tên biến tệp>: text; B. var <tên tệp>: text;
C. var <tên biến tệp, tên tệp>: text; D. var <tên biến tệp>: string;
Câu 4. Cú pháp của câu lệnh gắn tên tệp cho biến tệp:
A. assign(<biến tệp>, <tên tệp>); B. assign(<tên tệp>, <biến tệp>);
C. assign(<biến tệp>; <tên tệp>); D. assign(<tên tệp>);
Câu 1: B
Câu 2: A
Câu 3: D
Câu 4: B
Câu 5: Không có câu nào đúng
#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;
}
const fi='songuyen.txt';
fo='sochan.txt';
var f1,f2:text;
a:array[1..100]of integer;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
for i:=1 to dem do
if a[i] mod 2=0 then write(f2,a[i]:4);
close(f1);
close(f2);
end.