Паскаль

[MatFak2010]

Решить по этапам следующую задачу...
Есть ли в тексте символы «а» и «в»?
Пробовал по подобной задаче решать, но нифига не вышло, кто может подскажите....

[Alex11223]

В каком виде текст-то? Покажите, что не получилось.

[MatFak2010]

Ну т.е. нужно написать программу, вводишь текст, а он тебе должен выдасть есть ли в тексте символы а и в , их кол-во и т.д. Сейчас подобную найду по которой я решал, ссыль кину.

[Alex11223]

var s:string;
i, k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s)
   if (s[i] = 'а') or (s[i] = 'в') then
       k:=k+1;

И в конце если к = 0 вывести, что нет символов, либо если не 0 — их кол-во. Или по-отдельности а и в? Ну тоже не сложно, аналогично думаю сами напишите.

[MatFak2010]

http://www.cyberforum.ru/turbo-pascal/thread282857.html
вот решение подобной задачи, вернее в ней есть и моё решение, но почему то программа выдавала ошибку...хз из-за чего, в этой задаче 4 условия, 1 из которых мне нужно, просто надо убрать как то всё лишнее..

[Mad_Cat]

var s:string;
ca,cb:integer;
begin
ca:=0;cb:=0;
readln(s);
writeln((pos('а',s)>0) and (pos('в',s)>0));// true -есть  и а и в 
while (pos('а',s)>0) do begin
inc(ca);//кол-во а
delete(s,pos('а',s),1);
end;
while (pos('в',s)>0) do begin
inc(cb);//кол-во в
delete(s,pos('в',s),1);
end;
writeln(ca,';',cb);
readln;
end.

[MatFak2010]

О, всё)) разобрался)
ещё одна задачка, нужно решить (завтра зачёт((()

Решить по этапам следующую задачу. Должны быть составлены две программы:
Первая - с использованием цикла for, вторая - с циклом repeat

"Вычислить сумму всех членов ряда:
a(k)=k/(k+1)^ (k=1,2...), не меньших заданного числа е.
P.S. буква k в скобочках после а, это индекс."