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

[wiss16]

[QUOTE=حمزة_89;3994614949]الحل في مضمون السؤال

هذا عندما تكون 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.

[/QUO
j'ai bien compris la solution, mrc bcp