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

[Romalikons]

Ребят , помогите плиз , послезавтра экзамен , вот нашел возможные задание , может кто подсказать , или показать решения ? Язык : С++/ паскаль. Заранее благодарен.

№1
Дан текст, содержащий 30 символов. Подсчитать количество вхождений символов А и Б. написать программу.

№2
Дележ. Подружки пошли в сад на прогулку. Алена нарвала груш и поровну раздала своим подружкам Даше, Маше и Тане, а что осталось съела. Даша свои груши поделила между тремя подружками, а что осталось съела. То же самое сделали Маша и Таня. Сколько груш оказалось у каждой подружки? Составить программу для решения этой задачи.

№3
Имеется перечень зверей. Определить в этом списке порядковой номер тигра и порядковый номер зверя после косули. Напишите программу.

[Poma][a]

№1
Читаем, бабахаем цикл : if строка[i] = 'A' тогда cnt1 := cnt1+1 иначе if строка[i] = 'Б' тогда cnt2 := cnt2 +1/

выводим 0, т.к. все груши съедены

№3 
В цикле читаем строку, если строка = тигр, выводим сщетчик, если строка = косуля, выводим i+1

[Вадим Мошев]

Кстати, в первой задаче можно обойтись и без "длинного" условного оператора:

Внутри цикла:
Если текущая буква  = 'A', то увеличить счётчик букв А на 1;
Если текущая буква  = 'Б', то увеличить счётчик букв Б на 1;

[Poma][a]

и без "длинного" условного оператора:

"Длинный" условный оператор отличается от твоего лишь else'oм, и из-за этого else'a программа будет вополняться чуть быстрее

[Вадим Мошев]

Но у тебя в ветке else тоже стоит короткий условный оператор

[Poma][a]

Но у тебя в ветке else тоже стоит короткий условный оператор

И что?
Твой вариант :

for i := 1 to Length(s) do begin
    if s[i] = 'A' then
          Inc (cnt_a);
    if s[i] = 'B' then
          Inc (cnt_b)
end;

Мой вариант :

for i := 1 to Length(s) do
    if s[i] = 'A' then
          Inc (cnt_a)
    else if s[i] = 'B' then
          Inc (cnt_b);

Отличие, как видишь, лишь в else'e (не считая begin-end, которые мой вариант не использует)

[Romalikons]

Ну с 1 я понял , выглядеть сие чудо должно примерно так :

№1
Var
a : string;
i : integer;
ia :integer;
ib : integer;
Begin
read(a);
ia:=0;
ib:=0;
i:=30;
if a[i]:='A' then
ia:=ia+1;
if a[i]:='B' then
ib:=ib+1;
End.

А вот со 2 и 3 проблема ( в 3 там вроде как через массив ? я имею в виду , что сначала задается кол-во зверей , потом уже строки читать надо? а во 2 так не прокатит , мне исходник показать надо(( хелп плиз(

[Poma][a]

Ну с 1 я понял , выглядеть сие чудо должно примерно так :

Неа.. Не так.. Крутите цикл от 1 до length(s)..

[Romalikons]

эм.. ребят , скажите , а мой вариант прокатит или это бред сумасшедшего ?)

[Romalikons]

ок , погнал я думать дальше )