процедуры

[towelie]

1)Дано N строк.В каждой из них есть несколько пар круглых скобок.Написать процедуру которая в данной строке удаляет круглые скобки вместе с текстом заключенным между ними.Применить к каждой из N строк.
2)Для натуральных чисел из диапазона от A до B вывести все числа , делителей которых кратно k.

надеюсь на вашу помощь.

[Rusl92]

пиши 395359808 договоримся...

[mifomen]

towelie, дан массив строк?

1 массив строк?
2 задача, я думаю что должно быть примерно так.

uses crt;
var a,b,i,k:integer;
      x:array [1..1000] of integer;
begin clrscr;
repeat readln(a,b); until (a>0) and (b>0) and (b<1000) and (a<1000) and (a<>b);
for i:=a to b do x[i]:=i; 
for i:=a to b do write(x[i],' '); writeln; write('Введите делитель '); readln(k);
for i:=a to b do if x[i] mod k=0 then write(x[i],' '); readkey
end.

я написал программу, думаю в процедуру сможешь закатать .

[Ольга123456]

Здравствуйте!Помогите пожалуйста!


Дан одномерный массив А размера n(n<=30).получить новый массив В,каждый элемент которого вычисляется по формуле bi=cosai+cos^2i+cos^3i+..+cosa^ni

(формула словами:б итое равно косинус а итого+косинус квадрат и+косинус куб и.......и так далее)
среда-Турбо Паскаль