Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2008.05.11;
Скачать: [xml.tar.bz2];

Вниз

делфи через div и mod   Найти похожие ветки 

 
Antonio   (2008-03-29 18:53) [0]

Определить, сколько четырехзначных чисел делится на 13 и при этом не делится на 2, 3 и 5.

а можно через div и Mod сделать ету программу (я понимаю что ето будет не оптимизированно но все же как будет выглядеть)


 
Denis__ ©   (2008-03-29 18:58) [1]

Обнулить Счётчик
от 1000 до 9999 , увеличивая i , делать
начало
  если ( i делится, неделится, чегонибудь ещё...) то Увеличить(Счётчик)
конец;
Показать(Счётчик);
if then for mod div and begin end i ; () x to :=
составь из этих символов код и всё.


 
Denis__ ©   (2008-03-29 18:59) [2]

забыл ShowMessage и do :)


 
Andy BitOff ©   (2008-03-29 19:00) [3]

Да обсуждалось уже сегодня, потерли наверно.


 
Denis__ ©   (2008-03-29 19:01) [4]

да? невидел, извините:))


 
korneley ©   (2008-03-29 19:21) [5]


> Andy BitOff ©   (29.03.08 19:00) [3]
> Да обсуждалось уже сегодня

Видать, где-то в школе признаки делимости проходят. Или mod и div. Или вообще, черырехзначные числа :)))


 
Palladin ©   (2008-03-29 19:23) [6]

антонио, тебе лень страничку до конца посмотреть? чего ветки плодишь? али ты бот?


 
Andy BitOff ©   (2008-03-29 19:24) [7]

> [5] korneley ©   (29.03.08 19:21)

Однако, ответы дают не использую этих признаков ;)

ЗЫ
За исключением Palladin"а, в удаленной ветке.


 
Andy BitOff ©   (2008-03-29 19:25) [8]

А, да. Она и не удалена, оказывается


 
Denis__ ©   (2008-03-29 19:26) [9]

помоему он издевается. или действительно бот. там же всё расписАли.


 
korneley ©   (2008-03-29 19:31) [10]


> Andy BitOff ©   (29.03.08 19:24) [7]
Не, ну я там монстра с проверкой цифирек "запуздырил" :) Все строго по признакам, как их описывают ;)


 
Andy BitOff ©   (2008-03-29 19:34) [11]

> [10] korneley ©   (29.03.08 19:31)

Да я уже посмотрел.
Просто думал, что ветки нет, а по пямяти помнил только до ответа Palladin"а



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2008.05.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.007 c
8-1179150403
Moritron
2007-05-14 17:46
2008.05.11
DSPack - видеоналожение.


2-1208190577
Shifr
2008-04-14 20:29
2008.05.11
Помогите с заданием


2-1207815713
azamatufa
2008-04-10 12:21
2008.05.11
TADOQuery - параметры...


3-1196832865
Тест_Новичок
2007-12-05 08:34
2008.05.11
Как создать таблицу в формате InterBase?


2-1207975087
NewSer
2008-04-12 08:38
2008.05.11
Как отменить Close?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский