|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.05.2012, 21:01 | #1 |
Регистрация: 13.05.2012
Сообщений: 7
|
Множини
Ребят помогите решить задачу,а то я что-то запутался;( Притом в множинах не очень розбираюсь.
В порядке возрастания напечатать все целые числа из диапазона 1 ... 256, которые можно представить в виде sqr (n) + sqr (m), где m, n> = 0 - целые числа. |
13.05.2012, 21:10 | #2 |
Регистрация: 13.05.2012
Сообщений: 7
|
Код:
Вроде должно работать, но у меня выдает ошыбку, "Арифметическое переволнение" |
13.05.2012, 21:20 | #3 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
держите) оптимизируйте)
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
13.05.2012, 21:30 | #4 |
Регистрация: 13.05.2012
Сообщений: 7
|
Спасибо. Но выдает ошыбку: "Ошыбка проверки диапазона."
|
13.05.2012, 21:34 | #5 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
13.05.2012, 21:35 | #6 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,596
|
Байты от 0 до 255, а не от 1 до 256.
E-Mail: arigato.freelance@gmail.com
|
13.05.2012, 21:38 | #7 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,322
|
set of byte подразумевает диапазон 0..255, а не 1..256
замените a:=a+[(sqr(i)+sqr(j))]; на a:=a+[(sqr(i)+sqr(j))-1]; и for I := 1 to 256 do if i in a then write(i,' '); на for I := 0 to 255 do if i in a then write(i+1,' ');
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
13.05.2012, 21:45 | #8 |
Регистрация: 13.05.2012
Сообщений: 7
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задача про множини | nat@ | Помощь студентам | 2 | 30.10.2012 00:21 |
Множини... | Кулибаба Петро | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 05.05.2012 18:35 |
МНОЖИНИ | STALKER7538 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.10.2010 23:09 |