ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[حمزة_89]

المشاركة الأصلية كتبت بواسطة wiss16

ممكن مساعدة من فضلكم.
ecrire un programme qui lit un nombre n .
ensuite il lit n caractère et puis compte et affiche le nombre de fois ou les caractères 'a' et 'b' se suivent.

الحل في مضمون السؤال

هذا عندما تكون a وبعدها b ( لم أتطرق لحالة b وبعدها a أظن لما تشوفي الحل تجيك سهلة )

program copmter_ab;
uses crt;
var 
i,cpt_ab,n: integer; 
c:char;
begin
write('Entrer le nb des cractere sohaiter :');
readln(n);
cpt_ab:=0;
for i:=1 to n-1 do 
begin
readln(c);
if (c=='a') then
begin
  readln(c);
  if (c=='b') then
  begin
    cpt_ab:=cpt_ab+1;
  end;
writeln(' le nombre de a et b sont suivent est : ', cpt_ab);
end.