Developing.ru

народ помогите пожалуйста решить задачку))
>>>> дана строка текста из букв и цифр. найдите сумму и среднее арифметическое цифр, соддержащихся в строке)))) народ пожалуйста срочно)))

вообщето думать как правило полезней
итак:
lex@

народ простите меня за наглость, но после 5 часов решения этих задач башка разрывается на части(((( помогите пожалуста, а то за полугодие парашу получать не хочется(((((
1.дана строка, содержащаятекст на русском языке. в предложенияхнекоторые из словзаписаны подряд несколько раз. получить в новой строкеотредактированый текст, в котором удалены подряд идущие вхождения слов.
2.напечатать слово в котором оставлены буквы, входящие в исходное словоровно один раз. ребята пожалуйст))) заранее благодарю))))

demon416, благодарю спасибо огромное

вынесено в отдельную тему

if (s >= '0')and(s<='9') then
begin
case s of
'1': sum:=sum+1;
'2': sum:=sum+2;
'3': sum:=sum+3;
'4': sum:=sum+4;
'5': sum:=sum+5;
'6': sum:=sum+6;
'7': sum:=sum+7;
'8': sum:=sum+8;
'9': sum:=sum+9;
end;
спокойно заменяется на
if (s >= '0')and(s<='9') then
sum:=sum+ord(s)-ord('0');

1. Раздел "Алгоритмы", тема "Разбиение строки на слова"
2. где-то так
for i:=2 to length(slovo) do
begin
c:=slovo;
if pos(c, copy(slovo,1, i-1))>0 then
while pos(c, slovo)>0 do delete (slovo, pos(c,slovo), 1);
end;

народ помогите пожалуйста решить задачу///
Прочитать 2 текстовые строки длиной не более n(n<80)символов. После каждых трех символов первой строки вставить два символа второй строки. Если символы первой строки закончатся, то дописать все символы второй строки, шо остались/
зарание благодарю//