02/10/2018, 14:02
BCBEADS spoj PTIT – Đếm hạt
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCBEADS/ 1. Đề bài BCBEADS spoj PTIT Bessie đã đổ ra bộ sưu tập của cô với N (1<=N<=80) hạt xanh và cam (biểu diễn bởi 0 và 1) xuống sàn. Bessie dọn dẹp sự lộn xộn bằng cách sắp xếp chúng lại thành 1 đường thẳng dài. Cô muốn ...
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCBEADS/
1. Đề bài BCBEADS spoj PTIT
Bessie đã đổ ra bộ sưu tập của cô với N (1<=N<=80) hạt xanh và cam (biểu diễn bởi 0 và 1) xuống sàn.
Bessie dọn dẹp sự lộn xộn bằng cách sắp xếp chúng lại thành 1 đường thẳng dài. Cô muốn đếm số lần hai hạt
liên tiếp khác màu nhau. Hãy giúp cô thực hiện điều này.
INPUT:
* Dòng 1: 1 số nguyên: N
* Dòng 2: Dòng 2 chứa N số nguyên, mỗi số là 0 hoặc 1
OUTPUT:
* Dòng 1: 1 số nguyên biểu diễn số lần hai hạt liên tiếp khác màu.
VÍ DỤ:
INPUT:
6
1 0 0 1 1 1
SAMPLE OUTPUT :
2
2. Code tham khảo BCBEADS spoj PTIT
Bài này không có gì khó cả.. :v các bạn tham khảo code:
type data=longint;
var
n,i:data;
a:array[1..80] of byte;
s:data=0;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
if a[i]<>a[i+1] then
inc(s);
writeln(s);
end.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | type data=longint; var n,i:data; a:array[1..80] of byte; s:data=0; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n-1 do if a[i]<>a[i+1] then inc(s); writeln(s); end. |
