Question

Нужна ! borland pascal : с клавиатуры вводится целое число. найти его: 1) делители 2)сумму делителей 3)четные делители 4)нечетные делители 5)делитель больше заданного абсолютно ничего не понимаю, желательно начать прямо с program и тд, короче абсолютно все то, что должно появится на экране. тут надо с for,

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.//конец программы