|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.12.2009, 23:25 | #1 |
Пользователь
Регистрация: 18.12.2009
Сообщений: 10
|
Задачка легкая, но дойти не может)
найти сумму всех 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. (это не правильно тут еще надо Н вводить но до меня не может дойти как это сделать) Помогите пожалуйста, ну или посоветуйте) |
19.12.2009, 00:06 | #2 | |
Форумчанин
Регистрация: 02.04.2009
Сообщений: 235
|
Цитата:
Всё гениальное - просто!
|
|
19.12.2009, 01:25 | #3 |
Заблокирован
Регистрация: 30.10.2009
Сообщений: 468
|
Очевидно, что переменная H расшифровывается как High - верхний предел n-значности..
|
19.12.2009, 14:46 | #4 |
Пользователь
Регистрация: 14.08.2009
Сообщений: 10
|
MsJanep
программка готова 220250283 - пиши))) |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Легкая задачка на паскале! | Naruto63 | Помощь студентам | 8 | 21.11.2009 23:01 |
Легкая задачка в C# | OnlySergio | Помощь студентам | 5 | 21.11.2009 15:02 |
Легкая задачка для асов Паскаль Турбо | Suslik-LICHNOST | Помощь студентам | 26 | 21.05.2009 23:59 |
Легкая задачка | Васька | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 29.11.2008 14:55 |
дойти не может что к чему | if-soft | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 07.10.2008 10:45 |