Контрольная работа: Базис стандартной и рекурсивной схемы. Верификация программы

6

Составить рекурсивную программу-функцию подсчета количества всех положительных делителей натурального числа n. Рассчитать количество делителей для числа 10.

Рис. 2

TURBO PASCAL

program Chislo;

uses crt;

type r=array[1..10] of integer;

var

d,x:integer;

a:r;

y:integer;

begin

clrscr;

y:=1;

textcolor(6);

write('NAHOZHDENIE DELITELEJ');

gotoxy(2,2);

textcolor(9);

write('Vedite chislo, u kotorogo nado najti kolichestvo delitelej: ');

readln(x);

textcolor(6);

write ('Deliteli chisla ' ,x, ' : ');

for d:=1 to x div 2 do

begin

textcolor(9);

if x mod d=0 then begin

write(d,' ');

inc(y);end;end; {Y:= Y + 1}

writeln(x);