Задание на проверку символов в слове

[heartquake]

Помогите, нужно решить такую задачку.В заданной символьной строке проверить одинаково ли количество слов с символами "*" и "#".
Спасибо.

[Stilet]

Чем именно помочь?

[heartquake]

Написать код на паскале. Я символы не могу понять.

[Stilet]

Примерно так:

i:=pos(' ',s);
while i<>0 do begin
 if pos('*',copy(s,1,i))<>0 then inc(astra);
 if pos('#',copy(s,1,i))<>0 then inc(diez);
 delete(s,1,i+1);
 i:=pos(' ',s);
end;

s - String. Можно ввести ее с клавиатуры через Readln()
i,astra,diez - Integer
Астру и Диез потом выводи на экран. По идее если они равны то кол-во слов с такими символами равное.
Код не проверял, но думаю сработает.

P.S. Поправил by Poma][a

[Poma][a]

Виталий, огроменное спасибо! Очень красиво! Прям Ваш девиз : "Скажем тривиальности НЕТ"

Код не проверял, но думаю сработает.

Шушуть подправил : у Вас i не меняется, и надо в начале s := s + ' ', вот тогда летать будет

[Stilet]

надо в начале s := s + ' ', вот тогда летать будет

Это пусть автор делает.

[heartquake]

Спасибо. Помогли

[heartquake]

актуально актуально, так и не понял.