Определить все делители данного числа, включая единицу
Категория: Delphi/Pascal
2011-08-21 11:01:26
code: #pascal
- program z_number;
- uses crt;
- var Number, CounterI:word;
- begin
- clrscr;
- writeln('Введите число');
- readln(Number);
- writeln;
- writeln('Делители числа');
- for CounterI := 1 to Number div 2 do
- if (Number mod CounterI = 0) then
- writeln(CounterI);
- writeln(Number);
- readln;
- end.
Поделиться: