Bài 1: Viết chương trình nhập vào từ bàn phím một xâu S có độ dài không quá 250 kí tự. Hãy cho biết trong xâu S có '112211' không?
Bài 2: Viết chương trình nhập vào từ bàn phím mảng 1 chiều A gồm n (n $\leq$ 200) phần tử nguyên dương. Đếm xem trong mảng A có bao nhiêu số chẵn. Thông báo ra màn hình kết quả tìm được. (Sử dụng chương trình con kiểm tra chẵn lẻ để viết).
Mình chỉ cung cấp cho bạn đoạn chính thôi ,còn mấy cái khai báo ,nhập ,... thì bạn tự viết nhé
Bài 1:
k:='112211';
kt:=false;
For i:=1 to length(s) do
Begin
t:='';
for j:=i to i+5 do t:=t+s[j];
if t=k then
begin
kt:=true;
break;
end;
end;
If kt=true then write('Co') else write('khong');
Bài 2:
Sử dụng chương trình con kiểm tra chẵn lẻ: ta dùng hàm kiểm tra !
Function chanle(n:word):boolean;
var kt:boolean;
begin
kt:=false;
if n mod 2=0 then kt:=true else kt:=false;
chanle:=kt;
end;
Chương trình chính :
Begin
clrscr;
----- nhập mảng -----
d:=0;
for i:=1 to n do
if chanle(a[i]) then d:=d+1;
writeln('Co ',d,' so chan');
end.
P/s: Có gì không hiểu cứ hỏi nhiệt tình