Viết ct đọc dữ liệu từ tệp bt1.txt ( gồm các số nguyên mỗi số cách nhau 1 kí tự trống ). Đém các số nguyên là số lẻ và ghi kết quả vào tệp mới có tên là kq1.txt
Viết ct đọc dữ liệu từ tệp bt1.txt ( gồm các số nguyên mỗi số cách nhau 1 kí tự trống ). Đém các số nguyên là số lẻ và ghi kết quả vào tệp mới có tên là kq1.txt
program ct;
var s,y:text;
a,i:integer;
begin
assign(s,’D:/bt1.txt’);
assign(y,’D:/kq1.txt’);
reset(s);
read (s,a);
rewrite(y);
d:=0;
if a mod 2<>0 then d:=d+1;
write(y,d)
close (y);
close (s);
end.