Задача на массив, удалить простые числа и заменить в получившемся массиве на на квадраты Опции

[T_S]

Помогите пожалуйста: дан массив целых чисел от50 до 199 удалить из массива все простые числа и заменить в получившемся массиве на квадраты ближайших к ним и меньшими из чисел фибоначи. Это платно?если да то сколько

Сообщение отредактировано: T_S - 9.10.2007 0:06

[Lapp]

Просто пройтись в цикле по всем элементам, проверяя, является ли текущее число простым. Для проверки можно использовать функцию вроде такой:

function PrimeNumber(n:integer):boolean;
var
  i:integer;
  b:boolean;
begin
  b:= n>1;
  i:=2;
  while b and (i*i<=n) do begin
    b:=(n mod i)>0;
    Inc(i)
  end;
  PrimeNumber:=b
end;

Начни писать саму основную программу с циклом. Что получится, покажи здесь.

PS
Не совсем понятно условие..
"заменить в получившемся массиве на квадраты ближайших к ним и меньшими из чисел фибоначи"
что за ближайшие к ним? ближайшее снизу или сверху? И как это ".. и меньшими из чисел фибоначи"?
Проясни, плз. Если самой не совсем ясно - спрос препа. Если есть точное написанное условие - давай его сюда.