Экзамен по программированию

[Romalikons]

эм , а так ?

var i:integer;
ia : integer;
ib:integer:
s:string;
begin
ia:=0;
ib:=0;
read(s);
for i := 1 to Length(s) do
if s[i] = 'A' then
ia:=ia+1;
else if s[i] = 'B' then
ib:=ib+1;
end.

Заранее прошу прощение , если что-то нарушаю типа набивка постов и т.п.((

[Poma][a]

эм , а так ?

Так-с.. код нужно выделять не тегом цитаты, а тыкать кнопочку с #.
По делу :
Почти. Осталось прочитать строку. И вывести что-то вида : WriteLn ('A : ', ia); WriteLn ('B : ', ib)

[Romalikons]

Ну как то так :

var i:integer;
ia : integer;
ib:integer:
s:string;
begin
ia:=0;
ib:=0;
read(s);
for i := 1 to Length(s) do
if s[i] = 'A' then
ia:=ia+1;
else if s[i] = 'B' then
ib:=ib+1;
writeln ('A=' ,ia , 'B=' , ib);
end.

[Poma][a]

var i:integer;
ia : integer;
ib:integer:

var i, ia, ib : Integer;

read(s);

Для красоты readln (s);

writeln ('A=' ,ia , 'B=' , ib);

Для красоты writeln ('A=' ,ia , ' B=' , ib);

А так пойдет..

[Romalikons]

ок , спасибо)