Для каждого числа последовательности найти количество его делителей

@SHRIKUL · Регистрация: 01.06.2013

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

Доброго времени суток всем! Возникла проблема с данной программой :

Вводится последовательность 5-и трехзначных чисел. 999 - конец последовательности.
Для каждого числа последовательности найти количество его делителей ( функцией оформить
определение суммы делителей числа.

Заранее благодарю за помощь).

@CodeR · 01.06.2013, 13:22

Pascal

Var n:integer;
Function F(n:integer):integer;
Var i,k:integer;
Begin
    k:=2;
    For i:=2 to n div 2 do
     if n mod i = 0 then inc(k);
    F:=k;
End;
Begin
    Repeat
      write('3-ое число: ');readln(n);
      writeln('У числа ',n,' делителей ',F(n));
    Until n=999;
    readln;
End.

@SHRIKUL · 01.06.2013, 13:24 **[ТС]**

Огоромное человеческое спасибо, но можете ещё немного подкрепить словами вашу программу ? (в частности пару первых строк насчте function).

@SHRIKUL 0 / 0 / 0 Регистрация: 01.06.2013 Сообщений: 10
		1
	Для каждого числа последовательности найти количество его делителей 01.06.2013, 13:14. Показов 2240. Ответов 2 Метки нет (Все метки) Доброго времени суток всем! Возникла проблема с данной программой : Вводится последовательность 5-и трехзначных чисел. 999 - конец последовательности. Для каждого числа последовательности найти количество его делителей ( функцией оформить определение суммы делителей числа. Заранее благодарю за помощь). 0

@SHRIKUL 0 / 0 / 0 Регистрация: 01.06.2013 Сообщений: 10
	01.06.2013, 13:24 [ТС]	3
	Огоромное человеческое спасибо, но можете ещё немного подкрепить словами вашу программу ? (в частности пару первых строк насчте function). 0

Для каждого числа последовательности найти количество его делителей

Решение