Lê Văn Giảng
Hỏi từ APP VIETJACK
Cho tệp SONGUYEN.INP gồm các số nguyên cách nhau bởi dấu cách .Hãy đọc dữ liệu từ tệp trên . Tính tổng các số nguyên chẵn (lẻ) và ghi kết quả vào tệp SONGUYEN.OUT
Quảng cáo
1 câu trả lời 2368
3 năm trước
uses crt;
const fo='songuyen.inp';
var f:text;
a,b:integer;
begin
clrscr;
assign(f,fo); rewrite(f);
write('nhap a='); readln(a);
write('nhap b='); readln(b);
writeln(f,a,' ',b);
close(f);
readln;
end.
Bài 2:
const fi='songuyen.inp';
fo='songuyen.out';
var f1,f2:text;
a,b,t: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.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!