Question

Срочно нужна помощь! Borland Pascal
Задача:
С клавиатуры вводится целое число. Найти его:
1) делители
2)сумму делителей
3)четные делители
4)нечетные делители
5)делитель больше заданного
Абсолютно ничего не понимаю, желательно начать прямо с program и тд, короче абсолютно все то, что должно появится на экране.
Тут надо с For, If...

Answer 1

program divisors;//вообще ничего не делает(аля название программы)
var num,divisor,i,sum:longint;//описываем переменные типа longintbegin//начало программы write('Vvedite chislo:');//выводим текст readln(num);//считываем число write('Vvedite delitel:');//выводим текст read(divisor);//считываем заданное число(будем использовать при поиске делителей больше заданного) sum:=0;//зануляем переменную(изначально равна нулю, но на всякий случай ;) привет от с++)    for i:=1 to num do //цикл от 1 до числа(можно оптимизировать идя до корня из num)    begin//начало цикла      if num mod i = 0 then//если на очередном шаге остаток от деления числа на i равен нулю      begin//начало условия        write(i,' ');//выводим делитель        sum:=sum+i;//суммируем      end;//конец условия    end;//конец цикла    writeln();//переходим на следующую строку    writeln(sum);//выводим сумму    for i:=1 to num do//аналогично выше    begin      if (num mod i = 0) and (i mod 2 = 0) then // если число делитель и делится на 2      begin       write(i,' ');      end;    end;    writeln();    for i:=1 to num do    begin    if (num mod i = 0) and (i mod 2 = 1) then // не делится на 2    begin        write(i,' ');    end;    end;    writeln();    for i:=1 to num do    begin    if (num mod i = 0) and (i>divisor) then // больше заданного числа    begin        write(i,' ');    end;    end;end.//конец программы 

Answer 2

http://pastebin.com/RscWa6Rx

Answer 3

ну как всегда все пробелы удалились. Вот ссылка на код с пробелами. Сервис достаточно известный для шэра кода. Надеюсь меня не забанят ^^