простенькая задача на множества, Срочняк!!! Опции

[emm]

Из множества целых чисел 1..100 выделить множество чисел, являющихся в свою очередь квадратами целых чисел

[volvo]

emm Спокойнее... У Вас где-нибудь было сказано, что эту задачу нужно решать при помощи множеств? Нет... А решается она при помощи множеств вот так:

const
  maxNum = 100;
var
  kv:set of byte;
  i: 1 .. maxNum;
const
  b = [1 .. maxNum];

begin
kv:=[];
{Работаем с квадратами, поэтому достаточно
  пройти до корня из макс числа...}
for i:=1 to Trunc(sqr(maxNum)) do
  if (sqr(i) in b) then include(kv,sqr(i));

for i:=1 to maxNum do
  if (i in kv) then write(i:4);
readln;
writeln;
end.

P.S. А можно встречный вопрос? Что будет, если Вашему преподавателю вздумается найти все числа из интервала 1 .. 400, являющиеся квадратами целых чисел ? А множества вмещают 256 элементов ... Используя те советы, которые давались здесь, Вы можете этого избежать...

Сообщение отредактировано: volvo - 4.11.2010 12:16