DarveL, я и дописал потом в конце. продолжим! никаму никаких решений. будем тока намекать о размере своих яиц. я за
добавлено спустя 48 секунд:
Виктор, я на первую часть поста смотрел, не знаю что такое RSA
Задано натуральное число 0<K<2^16 и число 1<N<11. Определить максимальную степень C числа N, чтобы число N^C было делителем числа K
01 Дек 2012, 22:45Кто-нибудь реализовал алгоритм свой для шашек ?
скиньте pls хочу глянуть ,пока свои делаю не могу учесть весх вариантов.
Да счастливые билеты легко реализовать не спорю ,но найти максимально оптимальное решение довольно сложно
Про RSA шифр тоже легкая задача ,главное описание шифра почитать ,даст немного представления о используемых шифрах.
сегодня на паре решал такую:
Дана квадратная матрица НхН записать в одномерный массив сумму элементов четных строк матрицы, у которых с первого элемента подрят идут К и более положительных чисел.
bober пишет:
"сегодня на паре решал такую:
Дана квадратная матрица НхН записать в одномерный массив сумму элементов четных строк матрицы, у которых с первого элемента подрят идут К и более положительных чисел."
Не проверял. Чисто от балды ща написал без компилятора. Возможны даже синтаксические ошибки
uses crt;
var k,n,o,summ,i,j,h:integer;
a:array[1..99,1..99] of integer;
b:array[1..99] of integer;
begin
clrscr;
k:=2;
n:=5;
o:=0;
h:=0;
{random}
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:3);
end;
writeln;
end;
{/random}
for i:=1 to n do
begin
o:=0;
summ:=0;
for j:=1 to n do
begin
if(i mod 2=1) then break;
if(o<k) and (a[i,j]<0) then
begin
summ:=0;
break;
end;
if(a[i,j]>0) or (o>=k) then
begin
inc(o);
summ:=summ+a[i,j];
end;
end;
if(summ>0) then
begin
inc(h);
b[h]:=summ;
c[h*(-1)]:=i;
end;
end;
if h>0 then
for i:=1 to h do writeln(c[h*(-1)],'=>',b[i])
else
writeln('net takih strok');
readln
end.