|
Цитата: |
|
|
|
|
|
|
|
|
|
Overlord, я первую задачу сделал. проверь пожалуйста.
|
|
|
|
|
|
Хорошо что решил поделиться своими наработками.
в третьем задании, нужно ведь проверить каждую букву, а не хотя бы одну.
поэтому надо так
Код:
//предположим что слово состоит только из парных z=1
z:=1;
for i:=1 to length(slovo) do
begin
k:=0;
for j:=1 to length(slovo) do
if (slovo[i]=slovo[j]) and (i<>j) then k:=k+1;
{вот это условие сработает только если попадется
буква которая встречается один раз
это сразу определяет что слово состоит не только из парных}
if k=0 then z:=0;
end;
я вижу ты не плохо разобрался с поиском слов в предложении и тебе похоже нравится информатика. у меня к тебе деловое предложение, если есть желание опиши алгоритм перебора слов в строке вот в этой теме [
Ссылки могут видеть только зарегистрированные пользователи. ] кроме пробелов слова могут разделять и такие знаки ",.:;?! если что я помогу. Поможешь развивать раздел, там глядишь и вести его сможешь.
Вобщем пиши зинтересовал я тебя или нет?