Program HOC24;
var n,i: integer;
a: array[1..32000] of integer;
procedure out;
begin
assign(f,'KQ.txt');
rewrite(f);
for i:=1 to n do write(f,a[i],' ');
close(f);
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
out;
readln
end.
Cho tệp BAIKT.INP chứa các số nguyên bất kì. Viết chương trình đếm xem trong tệp có bao nhiêu số lẻ rồi ghi kết quả vào tệp KETQUA.OUT giúp mình với mình đang gấp ạ. Mình cảm ơn nhiềuu
Cho tệp SN.INP gồm 2 số nguyên . viết chương trình tính hiệu của hai số đó và ghi kết quả vào tệp SN.OUT E chạy pascal ạ . Làm chuẩn tí ạ
Mọi người ơi giải bài này với giải thích hộ mình với ạ! Cho tệp "3.inp" gồm 1 số thực N(0
Mọi người giúp em giải 2 bài này được không ạ.
1. Viết chương trình nhập một mảng số nguyên 1 chiều gồm n nguyên tử. Tính tổng các phân tử chia hết cho 2 trong mảng. In kết quả ra màn hình.( biết n là số nguyên và nhập từ bàn phím)
2. Nhập một xâu từ bàn phím xóa ký tự thứ 2 và thứ 3 của xâu ghi kết quả vào tệp BT.TXT.
em hãy tạo pt pascal tạo tệp songuyen.dat gồm các số nguyên viết cách nhau bởi 1 khoảng trắng và không kết thúc bằng kí tự xuống dòng em hãy tính tích các số nguyên tim số nguyên lớn nhất rồi ghi vào tệp ketqua.dat
AI GIÚP EM NHANH VỚI Ạ CHIỀU EM THI RỒI
cho tệp SO.TXT gồm nhiều số nguyên viết chương trình đọc dữ liệu từ tệp SO.TXT và lưu vào máy nguyên A
Viết CT tạo mảng H gồm N số nguyên (N£100). Tính tổng các phần tử của mảng là các số chia hết cho 2.
Mọi người giúp dùm e bài này với ạ, e đang cần rất gấp ạ thứ 5 này thi rồi :((
Câu hỏi: Tệp dulieu.int chứa 2 dòng:
- Dòng 1 chứa số nguyên dương n( n<=100 )
- Dòng 2 chứa n số nguyên
Viết chương trình tạo tệp dulieu.out chứa n số nguyên của tệp dulieu.int được sắp xếp theo chiều giảm dần.
E nghĩ mãi mà vẫn không ra hic, mong mọi người giúp đỡ ạ <3
tệp input.txt trên đĩa d chứa 1 dãy số nguyên nằm trên cùng một dòng ( mỗi số cách nhau bởi dấu cach) viết chương trình tìm số lượng các số âm có trong dãy. ghi kết quả vào tệp output.txt trên ổ đĩa d
