Для каждого символа заданного текста указать сколько раз он встречается в тексте. Сообщение об одном символе должно печататься не более одного раза.

program zadacha_3;

var

s : string;

i, j, k : integer;

begin

writeln(' Введите строку. ');

readln(s);

i := 32; {символы которые выводим на экран}

while i <= 255 do {перебираем все символы}

begin

k := 0;

for j := 1 to length(s) do

if chr(i) = s[j] then inc(k); {если симв. встр в строке считаем его}

if k > 0 then {если символ встречается хоть раз}

writeln('Символ ', chr(i), ' встречается ', k, ' раз.');

inc(i);

end;

readln;

end.

( Скачать решение. )

В приведённом решении в ведённой строке проверяются все символы от 32 до 255, и выводится сколько раз они встречаются.

Ниже приведён пример который выводит все символы от 32 до 255, для иллюстрации.

program zadacha_3_b;

var

i : integer;

begin

for i := 32 to 255 do

write(chr(i), ' ');

readln;

end.

( Скачать решение. )

В дополнение к предыдущим задачам, можно привести еще один пример задачи.

Составить программу вывода последовательности символов:

А

BB

CCC

.....

WWW...WWW (23 раза) на экран.

program zadacha_3_c;

var

a, i, i1 : integer;

begin

a := 65;

for i := 1 to 23 do

begin

for i1 := 1 to i do

write(chr(a));

a := a + 1;

writeln;

end;

readln;

end.

65 это заглавная буква А и далее просто увеличиваем переменную на 1 и выводим символ соответствующий этому числу с помощью функции CHR.

(Скачать решение.)