строки,делители

[student94]

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

1)найти числа из промежутка [a,b] у которых больше всего делителей(реализовать функцию,вычисляющую количество делителей число)

2)написать программу для вычисления значения выражения f(0.8,a)+f(a,b)-f(2a-1,ab),где a,b дейцствительные числа и f(x,y)=(x^2+y^2)/(x^2+2xy+y^2+6)
3)в строке переставить слова так,чтобы сначала шли слова,начинающиеся с гласной,а потом все остальные(можно сформировать новую строку).
заранее благодарю,очень надо

[Вадим Мошев]

Вы готовы за это платить?

[student94]

к сожалению я обычный студент и денег у меня нет

[Stilet]

2)написать программу для вычисления значения выражения f(0.8,a)+f(a,b)-f(2a-1,ab),где a,b дейцствительные числа и f(x,y)=(x^2+y^2)/(x^2+2xy+y^2+6)

const a=0.1,b=0.2;

function f(x,y:Real):Real;begin f:=(x*x+y*y)/(x*x+2*x*y+y*y+6); end;

begin  write(f(0.8,a)+f(a,b)-f(2a-1,ab)); readln;end.

3)в строке переставить слова так,чтобы сначала шли слова,начинающиеся с гласной,а потом все остальные

var s:string; a:array[1..100] of string;
  i,count:integer;
begin  
 s:='Hello my world';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
 s:='';
 for i:=1 to count do if a[i][1] in ['e','y','u','i','o'] then s:=s+a[i]+' ';
 for i:=1 to count do if not( a[i][1] in ['e','y','u','i','o']) then s:=s+a[i]+' ';
 write(s);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Подходит?

[Poma][a]

1)найти числа из промежутка [a,b] у которых больше всего делителей(реализовать функцию,вычисляющую количество делителей число)

Если числа у Вас маленькие - то просто искать сам делители и вывести их кол-во..
Если числа большие - то всё плохо.. Там надо искать разложение на простые множители..

[student94]

спасибо конечно,но они же ничего не делают...

[Stilet]

Кто ничего не делает?

[Rififi]

student94

к сожалению я обычный студент и денег у меня нет

проапгрейдся с обычного студента до обычного солдата. Это бесплатно, и заданий больше задавать не будут.

[student94]

смешно,даже очень

[student94]

ну в первой вообще нет объявления переменных,вторая тупо воспроизводит текст,которым задаётся переменная "s",или я не прав?я не очень хорош в паскале,может быть надо чем дополнить?