Плииииизз Составить программу с помощью процедуры. Дано число, найти все его делители и...

Question

Плииииизз Составить программу с помощью процедуры. Дано число, найти все его делители и подсчитать их количество.

Answer 1

Держи
Program delitel;
vara,b,summa:integer;
beginwriteln('Введите число');readln(a);summa:=0;writeln('Делители');for b:=1 to 999 doif (a mod b) =0 then Begin write(b,'  ');  summa:=summa+b; end; writeln;writeln('Сумма всех делителей ' , summa);end.

Comments

мне надо с процедурой

---

Честно говорю,я без понятия как это с помощью процедуры решать

---

надо найте не сумму делителей, а просто их количество

---

Так,давай по новой,что бы я ее еще раз сделал.

---

Тебе надо,что бы система нашла все его делители,а потом система подсчитала их количество?

---

Вот,держи Program delitel; var a,b,i, number:integer; begin writeln('Введите число'); readln(a); writeln('Делители'); for b:=1 to 999 do if (a mod b) =0 then Begin write(b,' '); end; writeln; begin number := 1; for i := 1 to a div 2 do begin if a mod i = 0 then number := number + 1; end; writeln('Количество делителей ',number); end; end.

---

спасибо