Найти все делители целого положительного числа

@disfatum · Регистрация: 10.10.2013

Author24 — интернет-сервис помощи студентам

Kodzaev · 17.10.2013, 18:55

Не считая единицу и само число:

Pascal

var
  i, n: longint;
 
begin
  repeat
    Write('Введите целое положительное число: ');
    Readln(n);
  until n > 0;
  Writeln('Все делители этого числа:');
  for i := 2 to n div 2 do
    if n mod i = 0 then
      Write(i, #32);
  Readln
end.

@disfatum 0 / 0 / 0 Регистрация: 10.10.2013 Сообщений: 28
		1
	Найти все делители целого положительного числа 17.10.2013, 18:29. Показов 3979. Ответов 1 Метки нет (Все метки) Найти все делители целого положительного числа 0

	17.10.2013, 18:55

Опции темы

Найти все делители целого положительного числа

Решение