Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2009, 23:25   #1
MsJane
Пользователь
 
Аватар для MsJane
 
Регистрация: 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.
(это не правильно тут еще надо Н вводить но до меня не может дойти как это сделать)
Помогите пожалуйста, ну или посоветуйте)
MsJane вне форума Ответить с цитированием
Старый 19.12.2009, 00:06   #2
.Phoenix
Форумчанин
 
Регистрация: 02.04.2009
Сообщений: 235
По умолчанию

Цитата:
это не правильно тут еще надо Н вводить но до меня не может дойти как это сделать
Когда создавал(а) тему тебе не приходило в голову, авось зададут не хитрый вопрос "А для чего нужна эта переменная H?"
Всё гениальное - просто!
.Phoenix вне форума Ответить с цитированием
Старый 19.12.2009, 01:25   #3
CodeExpert
Заблокирован
 
Регистрация: 30.10.2009
Сообщений: 468
По умолчанию

Очевидно, что переменная H расшифровывается как High - верхний предел n-значности..
CodeExpert вне форума Ответить с цитированием
Старый 19.12.2009, 14:46   #4
velikijmerlin
Пользователь
 
Аватар для velikijmerlin
 
Регистрация: 14.08.2009
Сообщений: 10
По умолчанию

MsJanep
программка готова
220250283 - пиши)))
velikijmerlin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Легкая задачка на паскале! 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