Pascal.Помогите решать желая бы некие!!!Очень необходимо.Задача 1. Ввести три вещественных

Pascal.Помогите решать желая бы некие!!!Очень нужно.
Задачка 1. Ввести три вещественных числа: длины сторон треугольника. а) Напечатать существует ли треугольник с такими длинами сторон; б) Если треугольник существует, то напечатать тип треугольника: остроугольный,
прямоугольный либо тупоугольный.
Задачка 2. Компьютер в первую секунду печатает на экране 1, во вторую число 12, в третью число 23. То есть, в каждую последующую секунду на 11 больше, чем в предыдущую. В
какую секунду впервые появится число, делящееся на 2009?
Задачка 3. Текст состоит из слов, разделенных пробелом. Отыскать самое длинное слово. Если таких слов несколько, то напечатать заключительнее. Задача 4. Ввести естественное число N. Это число записывается в виде суммы нескольких неубывающих натуральных слагаемых. К примеру, 5=1+4=2+3=1+1+3=1+1+1+2=1+1+1+1+1
Напечатать количество таких изложений (при n=5, ответ 5);

Задать свой вопрос
1 ответ
2-ая задача:
Ловите решение. Программка с помощью цикла наращивает секунды и само число, каждый раз проверяя, делится ли число на 2009 без остатка. 
Ответ: на 1462 секунду.
Код:
var a, sec, c: integer;
begin  
sec := 1; a := 1; 
while true do begin
 inc(sec, 1);
 a := a + 11; 
writeln('Секунда - ', sec, ' число - ', a); 
if (a mod 2009 = 0) then break;
end;
writeln('Ответ: ', a);   
end.

Третью решу и скину или сюда, либо в личку.
Вожегова Ирина
сбрось в личку, желанно попрытче.Буду признателен
Илья
ну что там?Медли мало осталось просто, пожалуйста.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт