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

0 голосов
36 просмотров

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);


Информатика (38 баллов) | 36 просмотров
Дан 1 ответ
0 голосов

Вторая задача:
Ловите решение. Программа с помощью цикла увеличивает секунды и само число, каждый раз проверяя, делится ли число на 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.

Третью решу и скину либо сюда, либо в личку.

(716 баллов)
0

скинь в личку, желательно побыстрее.Буду благодарен

0

ну что там?Времени мало осталось просто, пожалуйста.