![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 06.11.2011
Сообщений: 2
|
![]()
вывести на экран все числа делящиеся на 13 от1 до 100
я просто вообще не шарю в паскале...(( |
![]() |
![]() |
![]() |
#2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Я так полагаю делящиеся на 13 без остатка
Если да, то Код:
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 06.11.2011
Сообщений: 2
|
![]()
спасибо огромное)очень благодарна)
|
![]() |
![]() |
![]() |
#4 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Не проблема! Обращайтесь! Ася в профиле
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 19.07.2010
Сообщений: 59
|
![]()
можна проще) если у тебя 1000000 чисел то наверное бістрей будет работать:
repeat x:=13; write(x); x:=x+13; until x>1000000; читерство) |
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
![]()
Почему нормальное оптимальное решение нужно называть мошенничеством?..
![]() Где критерий "честности"? По-моему, единственным критерием оценки решения является правильность результата и эффективность. Первое представленное тут решение - дуболомство, извините. В некоторых задачах без перебора просто никуда, но в данной - достаточно включить мозги, и перебор оказывается ненужным.
Предпочитаю на "ты".
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составить программу: найти все натуральные числа кратные 3, интервал от1 до 1000 | Миша.505 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 31.10.2011 17:06 |
Даны три числа a,b и с. Если все они ненулевые вывести их на экран в порядке возростания | 1znar | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 07.07.2011 18:41 |
для чисел от1 до 100 организовать вывод их словесного эквивалента C++ | Fackey | Помощь студентам | 4 | 15.02.2011 20:51 |
C++ Вывести на экран все натуральные числа из диапазона от A до B, в записи которых цифра 7 встречается | maloy0103 | Помощь студентам | 1 | 27.12.2010 00:17 |
вывести подряд числа 1, 2, 3, ... , 100 с выводом ответа на экран | Kitti | Помощь студентам | 2 | 10.06.2010 18:09 |