Простые числа, последовательность.

24.10.2009, 00:25. **Показов** 872. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Пожалуйста, помогите написать несколько программ:

1.Найти первые 500 простых чисел и присвоить простым числам номера от 1 до 500. Ввести число от 1 до 500 и программа должна вывести простое число, номером которого является введённое число.

2.сжатие последовательности из К единиц.
представить К единиц в виде последовательности чисел от 1 до А так, чтобы суммы членов обоих последовательностей совпадали (были равны К) пример: 1,1,1,1,1 при А=3 может быть преобразована в 1,2,1,1 или 2,3 и тд
посчитать количество способов сжать заданную последовательность.

заранее спасибо))

@Puporev · 24.10.2009, 18:26

1.

Pascal

uses crt;
function Prost(a:integer):boolean;
var i:integer;
begin
Prost:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then
 begin
  Prost:=false;
  break;
  end;
end;
var a:array[1..500] of integer;
    x,n,k:integer;
begin
clrscr;
x:=1;
n:=0;
while n<=500 do
 begin
  x:=x+1;
  if Prost(x) then
   begin
    n:=n+1;
    a[n]:=x;
   end;
 end;
repeat
write('k(1-500)=');
readln(k);
until (k>0)and(k<=500);
write('Простое число №',k,'=',a[k]);
readln
end.

fouraces
		1
	Простые числа, последовательность. 24.10.2009, 00:25. Показов 872. Ответов 1 Метки нет (Все метки) Пожалуйста, помогите написать несколько программ: 1.Найти первые 500 простых чисел и присвоить простым числам номера от 1 до 500. Ввести число от 1 до 500 и программа должна вывести простое число, номером которого является введённое число. 2.сжатие последовательности из К единиц. представить К единиц в виде последовательности чисел от 1 до А так, чтобы суммы членов обоих последовательностей совпадали (были равны К) пример: 1,1,1,1,1 при А=3 может быть преобразована в 1,2,1,1 или 2,3 и тд посчитать количество способов сжать заданную последовательность. заранее спасибо))

	24.10.2009, 18:26

Простые числа, последовательность.

Решение