[Помогите!] Решить задачу по Паскаль

[gum_classis]

Помогите пожалуйста очень надо , и прошу просто так флудить и репу минусовать ненадо

1.Сколько слагаемых должно быть в сумме 1+1/2+1/3+1/4+...+1/n,чтобы эта сумма оказалась больше 5?;
2.Запишите условия,истинные,когда точка с координатами (х,у)лежит точно
на прямой,показанной на (рис. 4а),выше этой прямой (рис. 4б)и ниже этой прямой(рис 4в):
[Ссылки могут видеть только зарегистрированные пользователи. ]


[Ссылки могут видеть только зарегистрированные пользователи. ]


[Ссылки могут видеть только зарегистрированные пользователи. ]

3.20 сентября 1519 года флотилия во главе с Магелланом вышла из порта Санлукар-де-Баррамеда(устье реки Гвадалквивир)
6сентября 1522 года "Виктории" встречали рассвет?
4.Написать программу,которая запрашивает четыри числа и выводит их в порядке возрастания
ПРИМЕР:
8 3 19 11
3 8 11 19
5.Элементы равностороннего треугольника пронумерованны следующим оброзом:1-сторона(а),2-радиус вписанной окружнасти (R1),3-радиус элементов и его значение.Вывести значения остальных элементов данного треугольника (в том же порядке).
(Написать программу на языке Паскаль)

[VeTaL_UA]

Цитата: Сообщение от gum_classis 1.Сколько слагаемых должно быть в сумме 1+1/2+1/3+1/4+...+1/n,чтобы эта сумма оказалась больше 5?;

33 раза.

var i:real; j:integer; //Объявляем переменные
begin //Начинаем код программы
i:=1; //Присваиваем i значение
j:=1; //Присваиваем j значение
 repeat //Повторяем действия, что ниже
 i:=i+(1/j);
 j:=j+1;
 [COLOR="rgb(255, 140, 0)"]until[/COLOR]//Пока i не будет больше пяти
 i>5;
j:=j+1; //Добавляем единицу, к количеству сложений
writeln(j); //Выводим на экран результат
sleep(3000); //Ждем 3 секунды
end. //Заканчиваем программу

[Dinmaite[Work]]

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

[VeTaL_UA]

Цитата: Сообщение от gum_classis 4.Написать программу,которая запрашивает четыри числа и выводит их в порядке возрастания ПРИМЕР: 8 3 19 11 3 8 11 19

var a,b,c,d:integer; M:array[0..50] of integer;
begin
writeln('Enter:');
 for a:=1 to 4 do
 read(M[a]);
  for a:=2 to 4 do
   for b:=4 downto a do
    if M[b-1]>M[b] then
     begin
     c:=M[b-1];
     M[b-1]:=M[b];
     M[b]:=c
     end;
   writeln('Result:');
    for a:=1 to 4 do 
    writeln(M[a]);
Sleep(3000);
end.