![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 03.12.2008
Сообщений: 8
|
![]()
Я раскладываю таким образом, но у меня она не работает правельно, помогите плз...
var k,n,i,m:integer; f:boolean; begin n:=202; m:=trunc(sqrt(n)); f:=true; k:=1; for i:=2 to m do if n mod i =0 then begin k:=k+ (n mod i); end; writeln(k); end. |
![]() |
![]() |
![]() |
#2 |
Бредовый
Форумчанин
Регистрация: 15.11.2008
Сообщений: 285
|
![]()
Во первых зачем в коде f
Чем точнее и проще задан вопрос, тем проще на него получить точный ответ.
|
![]() |
![]() |
![]() |
#3 |
Бредовый
Форумчанин
Регистрация: 15.11.2008
Сообщений: 285
|
![]()
По моему этот код выдаст сумму чисел которые нацело делят 202. Только если написать
Код:
Чем точнее и проще задан вопрос, тем проще на него получить точный ответ.
Последний раз редактировалось Deight; 09.12.2008 в 18:26. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
разложение на простые множители | pakusya | Помощь студентам | 2 | 19.12.2011 15:55 |
Разложение числа на простые множители | artem_MG | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 24.10.2008 19:28 |
Простые числа | werser | Помощь студентам | 8 | 18.06.2008 07:24 |
Разложение числа на слагаемые | Oleg-vp | Общие вопросы Delphi | 5 | 30.10.2007 10:43 |