Cao Bảo tồn
Câu 1 : viết chương trình tạo tệp SONGUYEN.INP chưa các số nguyên .bằng cách nối hai tệp NGUYEN1.INP và NGUYEN2.INP chứa các số nguyên( gợi ý : mở 3 file 2 file để đọc và file SONGUYEN.INP dùng để ghi) Câu 2: viết chương trình in ra màn hình nội dung của tệp VANBAN.TXT (in theo từng dòng ) và cho biết số dòng của tệp đó. Câu 3: viết chương trình sao chép tất cả các nội dung của tệp NGUON.TXT sang tệpDICH.TXT( gợi ý : đọc từng kí tự của tệp NGUON.TXT và ghi sang tệp DICH.TXT) Câu 4: tệp DULI...
Đọc tiếp

Những câu hỏi liên quan
hoichut
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 4 2021 lúc 17:59

const fi1='nguyen1.txt'

fi2='nguyen2.txt'

fo='nguyen.txt'

var f1,f2,f3:text;

a,b:array[1..100]of integer;

n,m,i:integer;

begin

assign(f1,fi1); reset(f1);

assign(f2,fi2); reset(f2);

assign(f3,fo); rewrite(f3);

n:=0;

while not eof(f1) do 

  begin

inc(n);

readln(f1,a[n]);

end;

m:=0;

while not eof(f2) do 

begin

m:=m+1;

readln(f1,b[m]);

end;

for i:=1 to n do 

 writeln(f3,a[i]);

for i:=1 to m do 

  writeln(f3,b[i]);

close(f1);

close(f2);

close(f3);

end.

Bình luận (0)
Nguyễn Bình Thiên
Xem chi tiết
Nguyễn Bình Thiên
Xem chi tiết
Nguyễn Bình Thiên
Xem chi tiết
Trần Trọng Hùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 3 2022 lúc 11:20

#include <bits/stdc++.h>
using namespace std;
unsigned long long a[1000],i,n,uc;
//chuongtrinhcon
unsigned long long ucln(long long a,long long b)
{
    if (b==0) return(a);
    else return(ucln(b,a%b));
}
//chuongtrinhchinh
int main()
{
    freopen("sn3.inp","r",stdin);
    freopen("uc.out","w",stdout);
    cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

uc=ucln(a[1],a[2]);

for (i=3; i<=n; i++)

uc=ucln(uc,a[i]);

cout<<uc;
    return 0;
}

 

Bình luận (1)
xzczwww22
Xem chi tiết
Phần Hoàng Duy
Xem chi tiết
Tiên Tiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 5 2021 lúc 22:22

const fi='songuyen.inp'

fo='tong.out'

var f1,f2:text;

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

i,n,t:integer;

begin

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

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do 

  begin

n:=n+1;

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Bình luận (0)