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