Программы по Delphi

[Mary1357]

3 задачки решить не могу...

1) Пусть a1=b1=1 , ak=(bk-1+(ak-1)/2)/2 ;
bk=2a2k-1+bk-1; k=2,3,...
Дано натуральное n. Найти a1b1+a2b2+...+anbn. (n=5)
( (k-1) или просто k и n -индексы внизу порядковые)

2)type
stroca=packed array[1..16] of char;
date=record
day:1.31;
mon:1..12;
year:1900..1979
end;
anketa=record
family:stroca
polмуж,жен);
bisdayate
end;
group=array[1..25] of anketa;
Написать программу, с процедурой old(gr,fam),присваивающую строке fam фамилию са-мого старшего мужчины из группы gr .(считать, что такой есть и он единственный)


3)Записать в файл информацию о 1000 студентах вуза: <фамилия>, <пол>, <возраст>, <курс>. Написать программу, которая вводит эту информацию в файл и печатает номер курса, на котором максимальное число студентов одного возраста.

[IT-man]

Стучи в аську.сделаю недорого.