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

[мизаил18]

нужно составить программы, решить задачи, в паскале. а я в нем практически ничего не понимаю. хотя мне сказали что эти задачки совсем просты. люди добрые помогите чем можете

1 Даны целые числа N, M. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

2 Даны три точки A(х1, y1), B(x2, у2) и С(х3, у3). Определить, будут ли они расположены на одной прямой. Если нет, то вычислить ABC.

3 Составить программу, печатающую все делители целого числа в порядке возрастания

4 Напишите программу отгадывания буквы

5 В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет?

6. Даны действительное a и натуральное n. Вычислить:a!;

7 Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.
В какой день впервые спортсмен пробежит более 20 км?

8 Создайте массив А[1..8] с помощью генератора случайных чисел с элементами от –10 до 10 и выведите его на экран. Подсчитайте количество отрицательных элементов массива.

9 Найти произведение элементов массива, кратных 3 и 9. Размерность массива – 10. Заполнение массива осуществить случайными числами от 5 до 500.

10. Подсчитайте количество элементов одномерного массива, которые совпадают со своим номером и при этом кратны 3.



ПОМОГИТЕ ЧЕМ МОЖЕТЕ ПРОШУ

[Smitt&Wesson]

Если "помогите", где твои наработки? Разберёмся - поможем.
Если "напишите за меня" - во фриланс.

[RUSt88]

помогу, обращайтесь

[мизаил18]

я просто ничего, кроме как что такое алгоритм, в программировании не понимаю. вот прошу помощи. я заочно учусь вот это задали а даже примеры незнаю где взять, чтобы хоть чуть понять

[Sanprof]

я думаю за бесплатно вам никто не поможет, разве что 10 человек возмет да и решит по задачке, а вобще если интересует решение всех задач пишите в ЛС - договоримся .

[ROMA2PVT]

8.)

kol:=0;
for i:=1 to n do
if a[i]<0 then 
begin
inc(kol);
end;

9.)

pr:=1;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 9=0) then
begin
pr:=pr*a[i];
end;

массив заполнить и вывести результат сами сможете думаю.
p.s:могут быть описки мелки (пишу с телефона)

[DomiNick]

5 В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через N лет?

Эм... А следующее начисление учитывает накапавшие проценты или только от первоначальной суммы? Если учитывает, то нужно знать как часто эти начисления идут, а если нет то просто: S+S*0.03*N...

[Hacker19_90]

10. Подсчитайте количество элементов одномерного массива, которые совпадают со своим номером и при этом кратны 3.

..........
kol := 0;
for i := 1 to kol_el_mas do
begin
    if (Massiv[i] = i) and ((Massiv[i] mod 3) = 0) then
    Inc (kol);
end;

3 Составить программу, печатающую все делители целого числа в порядке возрастания

for i := 1 to chislo do
begin
     if ((chislo mod i) = 0) then
         Write (i:4);
end;

[W.i.d.g.e.t.1]

5)

Var S:real;
N,i:integer;
begin
 for i:=1 to N do
 S:=S+S*0.03;
end;
end.

а с факториалом...причем тут N? в 6ой задаче.

[ChEaTeR-abc]

1)

var
  M,N:integer;

begin
  Writeln('Vvedite chislo M');
  Read(M);
  Writeln('Vvedite chislo N');
  Read(N);
    IF M=N THEN
      begin
        M:=0;
        N:=0;
        Writeln(M,' and ',N);
      end
    ELSE
      begin
        IF M>N THEN N:=M ELSE M:=N;
          Writeln(M,' and ',N);
      end;
      sleep(1000)
end.

4 Напишите программу отгадывания буквы

Не совсем понял.Нужно чтобы программа случайным образом выбрала букву а пользователь её отгадывал?

PS.Нажми на весы слева