|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2009, 23:57 | #1 |
Пользователь
Регистрация: 18.12.2009
Сообщений: 10
|
(паскль)найти сумму всех n-значных чисел кратных k(Задачка легкая, но дойти не может, помогите плиз)
найти сумму всех n-значных чисел кратных k (1<=n<=4)
var k,i,s:integer; begin write('k='); readln(k); s:=0; i:=0; for i:=1 to 9999 do if (i mod k = 0) then s:=s+i; writeln('S=,s); readln; end. (это не правильно тут еще надо Н вводить но до меня не может дойти как это сделать) Помогите пожалуйста, ну или посоветуйте) Последний раз редактировалось MsJane; 19.12.2009 в 00:01. |
19.12.2009, 00:07 | #2 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
тойсть нужно сделать ввод для н, если введено 2, то в цикле перебираем от 10 до 99, если 3 , то 100...999 и тд!
|
19.12.2009, 00:33 | #3 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Код:
|
19.12.2009, 00:33 | #4 |
Заблокирован
Регистрация: 30.10.2009
Сообщений: 468
|
Если непосредственно по вашей проблеме, то вот мой пример работы, только здесь прикручен счетчик кратных:
Код:
Код:
|
19.12.2009, 01:28 | #5 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Позволю заметить, что и на начало цикла следует накладывать условие, а именно i должно стартовать не от 1, а от round(exp(ln(10)*(n-1)))
А вот с этим замечанием полностью не согласен |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачка легкая, но дойти не может) | MsJane | Фриланс | 3 | 19.12.2009 14:46 |
Легкая задачка в C# | OnlySergio | Помощь студентам | 5 | 21.11.2009 15:02 |
Легкая задачка | Васька | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 29.11.2008 14:55 |
дойти не может что к чему | if-soft | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 07.10.2008 10:45 |
Помогите с решением задачи, плиз!(легкая) | alpha256 | Помощь студентам | 1 | 31.05.2008 22:35 |