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