помогите пожайлуста с задачами

[hipi6]

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

[kommunist]

на каком языке?
учитывать ли високосный год?

[kommunist]

program ng;
uses crt;
const day=365;
var datanow:integer;
ostatok:integer;
begin
writeln('введите номер дня: ');
readln(datanow);
ostatok:=day - datanow;
writeln(' до нового года осталось: ' ,ostatok);
readln;
end.

[hipi6]

turbo pascal, спасибо за 1, а как насчет второй???

[puporev]

Кажется ты рано благодаришь за 1. Твоя первая задача скорее всего на тип TDataTime, где с помощью процедур PackTime, UmpackTime нужно сначала преобразовать текущую дату и дату Нового года в тип Longint,
потом вычесть из даты Нового года текущую дату и преобразовать в тип
TDataTime.

[Tayfun]

1.задача: подсчитать число дней до нового года от текущей даты.

program ng;
uses crt;
const day=365;
var datanow:integer;
ostatok:integer;
begin
writeln('введите номер дня: ');
readln(datanow);
ostatok:=day - datanow;
writeln(' до нового года осталось: ' ,ostatok);
readln;
end.

Извини, но по моему, ответ несовсем полный!!!

Этот вариант ближе к теме... Правда еще возможны добавления... Но алгоритм существенно не измениться.

program kolendar;
uses crt;
const month:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var
k,i,d,y,m:integer;
begin
clrscr;
writeln('VVEDITE CHISLO');
readln(d);
writeln('VVEDITE NOMER MYSYACA');
readln(m);
writeln('VVEDITE GOD');
readln(y);
for i:=1 to m-1 do k:=k+month[i];
k:=k+d;
if y mod 4=0 then k:=366-k else k:=365-k;
writeln('DO NOVOGO GODA OSTALOSY ->',k);
readkey;
end.