|
Redaktor: Łukasz Podolski
|
|
26.11.2007. |
|
Zadanko z pascala na bdb :-)
Liczby super-pierwsze na przedziale.
|
program asd;
function pierwsza(n : longint) : boolean;
var
i:longint;
begin
if n<=1 then
pierwsza:=False
else begin
i:=2;
while (n mod i)<>0 do Inc(i);
pierwsza:=(i=n);
end;
end;
function suma(w:longint) : longint;
var
r,m,n,z,b:longint;
begin
b:=0;
m:=1;
repeat
n:=m;
m:=m*10;
r:=w mod m;
w:=w-r;
z:=r div n;
b:=b+z;
until w=0;
suma:=b;
end;
{MAIN BODY}
var
p,q,i:longint;
begin
writeln('poczatek przedzialu');
readln(p);
writeln('koniec przedzialu');
readln(q);
for i:=p to q do
begin
if pierwsza(i)=TRUE then
begin
if pierwsza(suma(i))=TRUE then writeln(i);
end;
end;
readln;
end.
|
Zakreśleniami są zaznaczone poszczególne bloki, np. kolorem szarym bloki główne. Mój program wykorzystuje funkcje (ang. function), jeżeli chcecie to się da je zlikwidować, mi się tego robić nie chce :-)
PS. jeżeli macie zamiar to oddać to coś pozmieniajcie, nazwy zmiennych albo formatowanie kodu np. sprowadźcie go do takiej formy by był wyświetlany w jednej linijce (likwidacja wszystkich "enterów"), ewentualnie polikwidujcie funkcje. Mi się wydaje że to o to chodziło ale kto wie :-P |
|
Zmieniony ( 26.11.2007. )
|
|
|
Redaktor: Łukasz Podolski
|
|
25.11.2007. |
|
W końcu się stało, we Francji doszło do porozumienia rządu, agencji fonograficznych i usługodawców na mocy którego firmy telekomunikacyjne mają zacząć monitoring aktywności w sieciach p2p, wyłapywać notorycznych piratów i przekazywać ich dane niezależnej komisji. Najpierw zacznie się od pisemnych ostrzeżeń ( niestety, lepszy skutek miało by nagłe odcięcie od internetu :D ) potem dopiero nastąpi odcięcie od internetu. Najlepsze jest w tym to że agencje fonograficzne rezygnują z dotkliwych sankcji dla piratów i tylko odcinają internet. Co więcej na mocy porozumienia agencje fonograficzne zobowiązały się do wydawania filmów na dvd szybciej niż obecnie oraz likwidację części zabezpieczeń DRM. Tak więc naprawdę to co ma za zadanie utrudniać piractwo naprawdę mu pomaga. Ograniczając kary i zabezpieczenie.
PS. zacząłem tak podniośle by podkreślić absurd tej sytuacji, tego "porozumienia antypirackiego". |
|
Zmieniony ( 25.11.2007. )
|
|
|
Redaktor: Łukasz Podolski
|
|
25.11.2007. |
|
Ostatnio świat obiegła informacja niemieckiej policji dotycząca problemów z podsłuchem rozmów wykonywanych poprzez komunikator Skype, ze względów na zbyt dobre zabezpieczenie połączenia i własny, dobry algorytm szyfrowania. Sytuacja jak wiadomo ma dwa aspekty jeżeli jakiś operator voip np. skype udostępni metodę podsłuchu to przecież ktoś z policji może ją udostępnić i będzie klapa. Dlatego Niemieccy policjanci chcą dostać prawo instalacji na komputerach podejrzanych trojanów, rozgorzała więc gorąca dyskusja czy pozwolić na taką ingerencję prywatną czy nie. Pomijając wszelki dyskusje na temat prywatności, zastanawia mnie jaki spobób mają Policjanci na wprowadzenie trojana do systemu operacyjnego, czy nakażą producentom systemów operacyjnych umożliwienie ataku (ciekawy który się zgodzi, przynajmniej oficjalnie).
Pamiętam że wcześniej, gdy wychodziła vista, ktoś chciał by wprowadzić do systemu taką lukę by umożliwić uprawnionym służbą dostęp do zaszyfrowanych plików, microsoft wtedy odmówił, zrobił by pewnie to i tym razem, nie chcąc narazić się użytkownikom i nie doprowadzić do odpływu użytkowników w kierunku Open Source.
Hmmm, ciekawe jak to będzie :-) |
|
|
|
«« start « poprz. 1 2 3 4 5 6 7 8 9 10 nast. » koniec »»
|
| Pozycje :: 29 - 35 z 79 |
