Quảng cáo
1 câu trả lời 937
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.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86151
Gửi báo cáo thành công!
