Quảng cáo
1 câu trả lời 851
4 năm trước
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
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!