| Temat: | [PASCAL] Szukanie liczb pierwszych |
|
[1-13] -» Nawigacja po temacie. |
|
|
[19:00:11, Friday 20. November 2009]
Moderator repków i newsów
|
|
|
[19:06:41, Friday 20. November 2009]
|
|
|
[19:10:28, Friday 20. November 2009]
Moderator repków i newsów
|
|
|
[19:14:33, Friday 20. November 2009]
|
|
|
[19:18:17, Friday 20. November 2009]
Moderator repków i newsów
|
|
|
[23:29:04, Friday 20. November 2009]
www.sTa-gaming.de - http://www.esl.eu/eu/team/3236986/
|
|
|
[00:24:57, Saturday 21. November 2009]
Moderator repków i newsów
|
|
|
[07:00:48, Saturday 21. November 2009]
|
|
|
[08:40:09, Saturday 21. November 2009]
po program;
wpisz uses crt;
a po pierwszym beginie clrscr;
bedzie duzo ladniej wygladalo ^^
@Love to raczej ciezkie nie jest. mam w zeszycie program na silnie wiec mozna fajniusio przerobic zapewne :)
---- Poprawiono: 2009-11-21 08:46:40 ----
nawet teraz napisalem ;p (mam nadzieje ze o to chodzi)
program makaron;
uses crt;
var
i,n,suma:integer;
begin;
clrscr;
writeln('podaj liczbe do ktorej sumowac');
read(n);
for i:=1 to n do begin;
suma:=suma+i;
end;
writeln(suma);
readkey;
end.
---- Poprawiono: 2009-11-21 11:55:25 ----
Mati zrobiles powazny blad. zrobiles program na znajdywanie liczb nieparzystych :(
---- Poprawiono: 2009-11-21 12:35:44 ----
Ok, troche sie z tym pomeczylem ale teraz dzialaja liczby pierwsza(w Twoim programie gdy wpisujesz 9 dodaje Ci ja do pierwszych, a to liczba zlozona[przeciez ma 3 dzielniki :p]).
to jest Twoj kawalek:
end else
spr:=true;
for i:=2 to liczba-1 do
begin
if (liczba mod i)=0 then
begin
spr := false;
end;
if (spr=true) then
begin
tab[k-1]:=liczba;
end;
wklejam zebys sie polapal co zmienilem. mianowicie;
end else
pierwsza:=0;
for i:=1 to liczba do begin;
if (liczba mod i)=0 then begin;
pierwsza:=pierwsza+1;
end;
end;
if (pierwsza=2) then
begin;
tab[k-1]:=liczba;
end;
end;
Mam nadzieje ze dobrze poprawilem :)
cze, pojdziesz ze mna na disco ?
|
|
|
[21:54:37, Saturday 21. November 2009]
Moderator repków i newsów
|
|
|
[22:44:00, Saturday 21. November 2009]
|
|
|
[15:01:51, Sunday 22. November 2009]
Moderator repków i newsów
|
|
|
[15:27:11, Sunday 22. November 2009]
|
|
|
[1-13] -» Nawigacja po temacie. |
Dodawanie posta
Nie jesteś zalogowany. Zarejestruj się, a później zaloguj aby dodać wiadomość!
Więcej?
Chcesz znaleźć informacje na konkretny temat? Przejrzyj hasła, których najczęściej dotyczą dodane ostatnio nowości!
WC3L,
TURNIEJ,
WCG,
NETWARS,
LCW,
WORLD CYBER GAMES,
TERROR,
DOTA,
GRUBBY,
MYM,
PALADYN,
WYWIAD,
REPPACK,
WARCRAFT,
BLIZZARD,
MOON,
PORADNIK,
POL-TEAM,
BIOT,
POLSKA,
ESL,
KONKURS,
LIGA,
WORLD ELITE,
FUZJA,
NGL-ONE,
ENC,
NGL,
TOD,
TDEL,
SPQR,
SLH,
MOUZ,
PGS,
TOUR,
GFO,
WILQ,
BRONZE,
KODE5,
WILDA,
PATCH,
TEAM FIGHTING,
LADDER,
REPREZENTACJA,
SILVER,
HEADSHOT,
EXTREME MASTERS,
HEYAH,
FLY100%,
VOODOO,
LYN,
KUJA,
BIOHAZARD-TEAM,
BVG,
WICKED,
ESWC,
ALMOST,
TH000,
ACIS,
KWAKI,
CYKLOP,
SHOW,
KLIMO,
REPLAYPACK,
INCUP,
CLAN BASE,
HOORAI,
SASE,
ELIMINACJE,
FINAłY,
FNATIC,
POLTEAM,
SHOWMATCH,
WCG 2006,
IEST,
SRS,
FINAł,
CYBERSPORT,
WE.EU,
PLD,
SKY,
PRAE,
REMIND,
JAGR,
CASIN,
LAN,
REPLAYS.PL,
CHALLENGE,
ANIMATOR,
2007,
BATTLENET,
CARMAC,
HAPPY,
NATIONS,
STARCRAFT,
PEDAL,
KONKURSIWO,
W3ARENA
Copyright ©
Wszelkie prawa zastrzeżone,
kopiowanie tylko za zgodą właściciela.
2003/2007 by: CyklOP, Muzami, Julas [ Mapa Strony ]
Replayów w bazie: 19538 Kont użytkowników: 11444
Pomysł, oskryptowanie, administracja: CyklOP [jak kupić zagraniczne akcje] [Jak wypełnić W-8BEN] [Jak tanio wymienić walutę] [deutschtests]
Design: Muzami, art w topie strony nadesłał Z4buZa
Skrypt obsługujacy replaye: Juliusz 'Julas' Gonera [ Replay Parser ]
Wykonano w czasie 0.010697841644287 sekund
