Процедура, выводящая на экран все делители переданного ей числа

@qewe · Регистрация: 26.04.2015

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

Напишите процедуру, которая выводит на экран все делители переданного ей числа (в одну строчку)

@ZX Spectrum-128 · 27.04.2015, 10:14

Найти все делители натурального числа n.

@qewe · 28.04.2015, 20:16 **[ТС]**

Напишите программу, в которой будет процедура, которая выводит на экран все делители переданного ей числа (в одну строчку)

@Catstail · 28.04.2015, 21:30

Pascal

Program task7;
 
Var i : integer;
 
procedure PrintAllDividers(n : integer; p : integer);
 
Begin
      if (p <= (n div 2)) then Begin
        if (n mod p) = 0 then Begin
            write(p);
            write(' ');
        end;
        PrintAllDividers(n,p+1);
      end;
End;
 
Begin
      write('i=');
      readln(i);
      PrintAllDividers(i,1);
      writeln;
End.

@qewe 0 / 0 / 1 Регистрация: 26.04.2015 Сообщений: 52
		1
	Процедура, выводящая на экран все делители переданного ей числа 26.04.2015, 23:17. Показов 28931. Ответов 3 Метки нет (Все метки) Напишите процедуру, которая выводит на экран все делители переданного ей числа (в одну строчку) 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	27.04.2015, 10:14	2
	Найти все делители натурального числа n. 0

@qewe 0 / 0 / 1 Регистрация: 26.04.2015 Сообщений: 52
	28.04.2015, 20:16 [ТС]	3
	Напишите программу, в которой будет процедура, которая выводит на экран все делители переданного ей числа (в одну строчку) 0

	28.04.2015, 21:30

Опции темы