uses crt;
const fi='songuyen.pas';
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
readln(a,b,c);
writeln(f1,a+b+c);
close(f1);
readln;
end.
uses crt;
const fi='songuyen.pas';
var f1:text;
a,b,c:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
readln(a,b,c);
writeln(f1,a+b+c);
close(f1);
readln;
end.
Tạo ra tệp DEBAI.DAT trong ổ đĩa D. Nhập dữ liệu gồm chữ hoa, chữ thường, chữ số. Hãy lập trình thực hiện các công việc sau: a. Tìm số nhỏ nhất và ghi vào tệp SONHONHAT.OUT ở ổ đĩa D. b. Tính tổng các số chẵn và ghi kết quả vào tệp SOCHAN.OUT ở ổ đĩa D c. Đếm xem có bao nhiêu kí tự dấu cách và in kết quả vào tệp DAUCACH.OUT d. Xóa tất cả các kí tự là dấu cách và in kết quả vào tệp KETQUA.OUT
viết chương trình tạo tệp baitap.txt trong dó dòng đầu tiên là n số lượng các số nguyên, dòng thứ hai là n số nguyên cách nhau 2 kí tự trắng được nhập từ bàn phím
cho tệp tinhtng.inp chứa
- dòng 1: 1 số nguyên dương n
- dòng 2: dây gầm n số nguyên (các số cách nhau 1 dấu cách)
yêu cầu tính tổng dây đã cho và ghi vào tệp tinhtong.out
cho dãy số nguyên gồm N phần tử,tính tổng các số dương và âm.So sánh giá trị tuyệt đối của tổng số dương và âm ghi kết quả vào tệp Mang.TXT
1. Đọc dữ liệu từ tệp có tên DL.Dat có chứa các chữ số.
a) đếm trong tệp có bao nhiêu số chẵn, số lẻ.
b) tính tổng các số chẵn chia hết cho 3.
c) tính tổng các số lẻ chia hết cho 9.
các kết quả ghi vào tệp KQ.Dat
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
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í ạ
viết chương trình tìm số nguyên lớn nhất trong n số nguyên đã có trong tệp baitap.txt và ghi vào tệp solonnhat.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