Функции

[.kbz]

Помогите с задачами:
1.Описать функцию IsPrime(N) логического типа, возвращающую True, если целый параметр N (> 1) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе.
2.Вводится последовательность из N целых положительных элементов. Определить содержит ли последовательность хотя бы одно число
Армстронга. Число Армстронга — натуральное число, которое равно сумме своих цифр, возведенных в степень, равную количеству его цифр. Например, десятичное число 153 — число Армстронга, потому что: 13+33+53=1+27+125=153.
3.Описать функцию типа void Hill(A, N), меняющую порядок элементов вещественного массива A размера N на следующий: наименьший элемент массива располагается на первом месте, наименьший из оставшихся элементов — на последнем, следующий по величине располагается на втором месте, следующий — на предпоследнем и т. д. (в результате график значений элементов будет напоминать холм). Массив A является входным и выходным параметром. С помощью этой функции преобразовать массивы A, B, C размера NA, NB, NC соответственно.

[newerow1989]

1 задача:

function IsPrime(n:integer):boolean;
var i:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   For i:=2 to Trunc(Sqrt(n)) do
      If n mod i=0 then
         Exit;
   Result:=true;
end;

var p:array[1..10] of byte;
    i,c:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(256);
      Write(p[i],'  ');
   end;
   Writeln;
   c:=0;
   For i:=1 to 10 do
      If IsPrime(p[i]) then
         c:=c+1;
   Writeln('count = ',c);
   Readln;
end.

Сойдет?

[.kbz]

Спасибо только мне нужно в си

[newerow1989]

А-а, тогда не ко мне!

[Serge_Bliznykov]

Сообщение от .kbz

Спасибо только мне нужно в си

во-первых, не нужно нарушать правила форума. Вот название темы дали правильное - ПО ПРАВИЛАМ ФОРУМА, было бы понятно, какой язык программирования и что за "функция" нужна!

во-вторых, поиском по форуму не пользуетесь принципиально?!
уж что, что, а поиск простых чисел - вариантов решений ПОЛНО.

начните с этих тем:
http://programmersforum.ru/showthread.php?t=248408

http://www.programmersforum.ru/showthread.php?t=119292

http://www.programmersforum.ru/showthread.php?t=40888