const fi='sn.inp'
fo='sn.out'
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a-b);
close(f1);
close(f2);
end.
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 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
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
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
Viết chương trình tính tổng các số chia hết cho 3 trong file input.txt kết quả ghi vào tệp output.txt
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
cho tệp "BAITAP.TXT" chứa hai số nguyên dương a,b lần lượt là độ dài hai cạnh của một hình chữ nhật. Hãy viết chương trình đọc từ tệp trên độ dài hai cạnh, tính chu vi của hình chữ nhật và in kết quả tính được ra màn hình.
1. Cho tệp DULIEU.PAS gồm nhiều dòng, mỗi dòng chứa 3 số nguyên A,B,C, cách số cách nhau 1 dấu cách. Viết chương trình đọc dữ liệu từ tệp DULIEU.PAS, tính trung bình cộng và ghi kết quả ra tệp KETQUA.PAS.
2. Cho tệp DULIEU.PAS chứa các số nguyên, các số cách nhau 1 dấu cách. Viết chương trình tìm các số chẵn và ghi kết quả ra tệp KETQUA.PAS.
Ai giải gấp hộ mình bài này với ạ!!!
