Решение головоломки Ж. Арсака
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: вид дипломной работы, красная книга доклад
| Добавил(а) на сайт: Jeskin.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
var da: boolean;
p: word;
begin
da:=true;
if x>2 then
for p:=2 to trunc(sqrt(x)) do if x=(x div p)*p then da:=false;
prost:=da;
end;
begin
{начинается первый шаг - будут отброшены те пары чисел,
у которых оба числа - простые}
writeln(' при n= ',n);
vs1:=0; {vs1 - количество решений после первого шага}
for i:=2 to n do
for j:=i to n do
begin
if prost(i) and prost(j) then b[i,j]:=false
else begin b[i,j]:=true; vs1:=vs1+1; end;
end;
writeln('vs1= ',vs1:5,' iz ',m);
s:=0; {s -количество решений, которые будут отбрасываться в дальнейшем}
{начинается второй шаг - будут отброшены те пары чисел i,j, сумма которых
может быть представлена в виде двух простых слагаемых}
for i:=2 to n do
for j:=i to n do
Рекомендуем скачать другие рефераты по теме: изложение 7 класс, реферати українською.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
Главная