BCBEADS spoj PTIT - Đếm hạt

Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCBEADS/

Nội dung bài viết

1. Đề bài BCBEADS spoj PTIT
2. Code tham khảo BCBEADS spoj PTIT

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:

1 0 0 1 1 1

SAMPLE OUTPUT :

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.

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.

BCBEADS spoj PTIT – Đếm hạt

1. Đề bài BCBEADS spoj PTIT

2. Code tham khảo BCBEADS spoj PTIT

Bài viết liên quan

Trả lời Hủy