и в паскале

Ответ от IRQ[гуру]
Пиши программу. Поможем исправить ошибки.

Ответ от Maxim[гуру]
--------------
первая:
var txt:string; ch:char; a,j:integer;
begin
writeln('Введите текст');readln(txt);
writeln('Введите букву');
readln(ch);
for j:=1 to length(txt) do
if txt[j] = ch then a:=a+1;
writeln('В тексте буква ', ch, ' встречается ',a, ' раз');
end.
--------------
вторая:
var st,st1:string; j:integer;
begin
writeln('Введите слово');
readln(st);
for j:=length(st) downto 1 do
st1:=st1+st[j];
writeln(st1);
end.
сначала тут писал i в квадратных скобках, а оно воспринимало это как bb-тег и делало текст курсивом, а скобки терялись как сейчас

Ответ от Tom[гуру]
1. Создаем символьный массив. Считываем в него текст. Создаем переменную для буквы. Запускаем цикл. Просим ввести букву. Создаем переменную для хранения числа вхождений символа. Запускаем цикл со счетчиком длиной в символьный массив. Перебираем массив символов и если есть совпадения элемента с буквой увеличиваем переменную с числом вхождений на единицу. Возвращаем значения переменной с числом вхождений.
2. Создаем символьный массив и считываем в него текст. Вызываем функцию инверсии массива и возвращаем его. Если функции нет то создаем второй массив символов, длина равна первому массиву. Запускаем цикл со счетчиком. Счетчики длиной в первый массив и их должно быть два. Счетчик первого массива убвающий, а второго возрастающий. Возвращаем второй массив.

Ответ от 3 ответа[гуру]