Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  numb
Language: PASCAL
Code:
uses crt;
var n,i:longint;
    k:byte;
begin
clrscr;write('Введите целое число n=');
readln(n);
k:=0;
writeln('Делители числа:');
for i:=1 to n doif n mod i=0 then
 begin
  k:=k+1;
  write(i,' ');
 end;writeln;
write('Количество делителей=',k);
readln
end.
Comments: