Буквы в строке Опции

[Вячеслав Л.]

Задание:

ввести строку (латинские буквы) и подсчитать кол-во букв 'а' в ней

Я думаю, это будет выглядеть как-то так:

Код

program hg;
var
st:string;
k:integer;
begin
for 1 to length(st) do
k:=ord(st,'a')
if k:=160 {esli ne owibayus' eto kod bykvy 'a'}
then k:=k+1
else writeln('bykv 'a' v stroke net');
end.

[Вячеслав Л.]

Rathar за прогу спасибо, но маленько не то. Дело в том, что мне надо использовать оператор ord, помоги пожалуйста его туда вставить.

inc это увеличение на 1, а dec уменьшение да?

Я чтото в твоей програме не увидел где ты считываеш строку St...

Про read(st) забыл, да, конечно...

Это роздел Паскаля, поэтому впредь бери код программ в теги "code=pas"...

Буду знать, спасибо

[RathaR]

inc это увеличение на 1, а dec уменьшение да?

inc(I,N);
I - переменная целого типа которая будет увеличена, а N - число на которое будет увеличено I, если N не задан, то по умолчанию используеться 1, dec(I,N); - тоже самое, только на уменьшение.